rtfBox.SaveFile("Pfadangeben.txt", RichTextBoxStreamType.PlainText)

Function Dateienauslesen(ByVal Pfad As String, ByVal Zeile As Integer) As String
        Dim fs As FileStream = File.OpenRead(Pfad)
        Dim reader As New StreamReader(fs)
 
        Dim liste As New StringCollection
        While reader.Peek > -1
            liste.Add(reader.ReadLine())
        End While
 
        Return liste.Item(Zeile)
        fs.Close()
    End Function