'各レコードの終端に区切り(CR+LF、16進表記「0D0A」)を付加し
'ファイルの終端に(EOF、16進表記「1A」)を付加したいのですが
'うまくいきません。
'Print命令で自動的に各レコードの終端には改行(Chr(13) & Chr(10))
'が付加されるのですが、ファイルの終端はEOF(Chr(26))は書かれるの
'ですが改行されてしまいます、どうすれば改行されずにEOFを書けるか
'分かりません宜しくお願いします。
Private Sub Command1_Click()
    Dim dat(3) As String
    MyFile = "A:\data"
    MyFileNo = FreeFile
    Open MyFile For Output As #MyFileNo
    dat(0) = "あああああ"
    dat(1) = "いいいいい"
    dat(2) = "ううううう"
    dat(3) = Chr(26)
    Print #MyFileNo, dat(0)
    Print #MyFileNo, dat(1)
    Print #MyFileNo, dat(2)
    Print #MyFileNo, dat(3)
    Close #MyFileNo
End Sub

↓でどう？
'各レコードの終端に区切り(CR+LF、16進表記「0D0A」)を付加し
'ファイルの終端に(EOF、16進表記「1A」)を付加したいのですが
'うまくいきません。
'Print命令で自動的に各レコードの終端には改行(Chr(13) & Chr(10))
'が付加されるのですが、ファイルの終端はEOF(Chr(26))は書かれるの
'ですが改行されてしまいます、どうすれば改行されずにEOFを書けるか
'分かりません宜しくお願いします。
Private Sub Command1_Click()
    Dim dat(3) As String
    MyFile = "A:\data"
    MyFileNo = FreeFile
    Open MyFile For Output As #MyFileNo
    dat(0) = "あああああ"
    dat(1) = "いいいいい"
    dat(2) = "ううううう"
    dat(3) = Chr(26)
    Print #MyFileNo, dat(0)
    Print #MyFileNo, dat(1)
    Print #MyFileNo, dat(2)
    Print #MyFileNo, dat(3);
    Close #MyFileNo
End Sub

GODさん、ご返答ありがとうございます。
";"で解決できるとはびっくりです。

すいません、出来ればでいいので
データを16進数表記で見れるエディタなどあれば
紹介して頂けるとありがたいです。

そういうことは、人に頼るより
「16進|バイナリ　エディタ　ダウンロード」で
ググレば良いです。

早速ネットでバイナリエディタを検索してみました
いろいろあるんですね。
これでいけそうです、ありがとうございました。