バイト型のデータを16進表記でファイルに書き込むには？

お世話になります。VB6.0を使用しています。
以下のようにバイト型buf配列の各要素を、２桁の１６進に変換してからファイルに入力しようとしています。

**プログラムここから****
Dim buf() As Byte
・
・
・
For i = 0 To 65535
strDenBun = strDenBun & Right$("00" & Hex(CInt(buf(i))), 2)
Next i
Open "test.txt" For Append As #intFileNumber
With typLogInfos
Print #intFileNumber, strDenBun
End With
Close #intFileNumber
**プログラムここまで****

しかし、この処理は約１分ほどかかってしまいます。
１６進に変換する個所で時間がかかっているようです。
できれば１秒くらいで書き込みたいのですが、何か良い方法はないでしょうか？

バイナリモードでファイルに書き込めば一瞬で終わりますが、なんとか１６進文字列でファイルに書き込みたいのです。

No.1 ベストアンサー 回答者： todo36 回答日時： 2004/05/27 19:40

>strDenBun = strDenBun &

多量の文字連結に時間がかかっているのでしょう

For i = 0 To 65535
Print #intFileNumber, Right$("00" & Hex(CInt(buf(i))), 2);
Next i

この回答への補足

すみません。「;」が重要なのですね。付け忘れてました。試してみたところ、ちゃんと改行なしでファイルに出力されました。ありがとうございました。ものすごく助かりましたm(_ _)m

補足日時：2004/05/27 20:18

この回答へのお礼

早速の回答ありがとうございます。劇的に速くなりました。びっくりです。
ですが、
**ファイルの中**
00
01
00
****
のように改行コードが入った状態でファイルに書き込まれました。改行コードがないように書き込むにはどうしたら良いでしょうか？
時間がありましたらお教えくださいm(_ _)m

お礼日時：2004/05/27 20:02