Imports System.Windows.Forms 'Verweis System.Windows.Forms ist hinzugefügt 
' worden
 
Module Module1
 
    Sub Main()
        Dim rtf As New RichTextBox()
        rtf.AppendText("gdhdfhfsvee")
        rtf.SaveFile("Pfadangeben.txt", RichTextBoxStreamType.PlainText)
    End Sub
 
End Module