VB2008を使っているものです。
テキストに書かれた文字や数字をバイナリー形式で保存をしたいのですが、
なかなかうまくいきません。

Dim FileName As String
Dim FileNum As String

If SaveFileDialog1.showDialog() = DialogResult.OK Then
　　　FileName = SaveFileDialog1.FileName
Else
　　 Exit Sub
End If

FileNum = FreeFile()
FileOpen(FileNum, FileName, OpenMode.Binary)
      Print(FileNum, TextBox1.Text)
      FileClose()

データを書き込む時、printではないと思い、VB6.0でも
使っていた、Putで書き込もうと思ってもうまくいきません。

ご教授の程、よろしくお願いします。

> VB2008を使っているものです。
> テキストに書かれた文字や数字をバイナリー形式で保存をしたいのですが、
> なかなかうまくいきません。

Imports System.IO

        Dim dt() As Byte

        Using sw As StreamWriter = New StreamWriter(Application.StartupPath + "\Test.bin")
            Using bw As BinaryWriter = New BinaryWriter(sw.BaseStream)
                bw.Write(dt)
            End Using
        End Using

こういうのはダメ？

※　適当にアレンジしてネ！

以上。

> Imports System.IO
>
>         Dim dt() As Byte
>
>         Using sw As StreamWriter = New StreamWriter(Application.StartupPath + "\Test.bin")
>             Using bw As BinaryWriter = New BinaryWriter(sw.BaseStream)
>                 bw.Write(dt)
>             End Using
>         End Using
>
> こういうのはダメ？
>
> ※　適当にアレンジしてネ！
>
> 以上。

お返事、有難うございました。
うまくいきました。