Dim fr As New IO.StreamReader("data.dat")
        Dim Line$
        Dim Data$()
 
        Do
            Line = Nothing
            Line = fr.ReadLine()
            If Line <> Nothing Then
                Data = Line.Split("=")
                ' Hier weiterverarbeiten
                ' Data(0) enthält die Notiztitel und Data(1) die Notiz selbst.
            End If
        Loop Until fr.BaseStream.CanRead

Titel der Notiz=Die Notiz selbst