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