Private Sub Test_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Test.Click
 
 
        SaveFileDialog1.Filter = "txt(*.txt)| *.txt"
        SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName <> "" Then
        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
        PrintLine(1, Test.Text)
        FileClose(1)
        End If
 
 
    End Sub

Private Sub Test_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Test.TextChanged
 
 
    End Sub