Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.Filter = "Alle Dateien (*.*)|*.*"
        If saveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim Strm1 As New System.IO.FileStream(saveFileDialog1.FileName, _
              IO.FileMode.Create, IO.FileAccess.Write)
            Dim Writer1 As New System.IO.StreamWriter(Strm1)
            Writer1.Write(TextBox2.Text)
            Writer1.Close()
            Strm1.Close()
        End If