Me.SaveFileDialog1.Filter = "ALL Files|*.*|Text Files|*.txt"
Me.SaveFileDialog1.FilterIndex = 1
If Me.SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim FileNumber As Integer
FileNumber = FreeFile()
FileOpen(FileNumber, Me.SaveFileDialog1.FileName, OpenMode.Output)
Write(FileNumber, Me.TextBox1.Text)
End If