ストリームを使ってテキストファイルに書き込む

'Shift JISで書き込む
'書き込むファイルが既に存在している場合は、上書きする
Dim sw As New System.IO.StreamWriter("C:\test\1.txt", _
    False, _
    System.Text.Encoding.GetEncoding("shift_jis"))
'TextBox1.Textの内容を書き込む
sw.Write(TextBox1.Text)
'閉じる
sw.Close()

ネタ元