Dim Writer As StreamWriter
            Dim Zeile As String
 
            Try                
                Writer = File.CreateText(SaveFileDialog1.FileName)
            Catch ex As Exception
                MessageBox.Show(ex.Message)                        
            End Try
 
            Zeile = "Dies ist der Text, der geschreiben werden soll"
            Try                               
                Writer.WriteLine(Zeile)        
            Catch ex As Exception
                MessageBox.Show(ex.Message)     
            End Try
 
            Writer.Flush()
            Writer.Close()