【vb.net】怎么把text里面的内容生成一个txt文件

Dim SaveFileDialog1 As New SaveFileDialog()
'创建一个保存对话框
SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"
'设置扩展名
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'如果确定保存
    My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)
'保存文本,False表示不追加文本，直接覆盖其内容
End If

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fn As String = InputBox("请输入文件名，不需要.TXT后缀", "提示")
        If fn <> "" Then
            fn = My.Computer.FileSystem.CombinePath(Application.StartupPath, fn & ".txt") '当前路径和输入文件名组合
            My.Computer.FileSystem.WriteAllText(fn, TextBox1.Text, My.Computer.FileSystem.FileExists(fn)) '如果文件已存在，则追加内容，否则建立新文件
        End If
    End Sub

添加一个textbox 一个Button一个SaveFileDialog
程序如下:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
SaveFileDialog1.ShowDialog()
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, True)
MsgBox("已保存文件到:" & SaveFileDialog1.FileName)
End Sub
End Class