テキストファイルでいいなら１行でできますよ。 
次の例ではTextBox1の内容をC:\Test\Sample.txtに書き込みます。 
My.Computer.FileSystem.WriteAllText("C:\Test\Sample.txt", TextBox1.Text, True) 
 
それにしても国破れて山河あり、福田首相辞めてVBあり、です。