初心者な質問ですみませんが教えてください。

何らかの形で取得した3000バイトのテキスト型データを以下のコードで.datファイルに書き込みを行うと
データの途中で勝手に改行(４行に)して書き込まれてしまいます。
元データと同じ１行で書き込みたいのですが、どうすれば解決できるでしょうか。


Dim intFileNum As Integer
Dim strDatFilePath As String
Dim strBuff As String

intFileNum = FreeFile
strDatFilePath = App.Path & "\Test.dat"

Do
strBuff = (…3000ﾊﾞｲﾄのﾃｷｽﾄ型)

Open strDatFilePath For Append As #intFileNum

Print #intFileNum, strBuff;

Close #intFileNum
Loop