Private Sub Test_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Test.Click
 
        SaveFileDialog1.Filter = "txt(*.txt)| *.txt"
        If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
          Dim sr As New IO.StreamWriter(SaveFileDialog1.FileName, True)
          sr.WriteLine(Test.Text)
          sr.Flush()
          sr.Close()
        End If
     End Sub