Dim sr as new Streamreader(DateiPfad) ' Der Streamreader -> Datei lesen
Dim Str1,Str2 As String
Do until (sr.Peek<0)
str1=sr.ReadLine()
str2=str1.ToLower
if str2.StartsWith("msg")=true then
If str2.Length<5 then
Exit Sub ' Kleiner als 5 Zeichen, abbrechen
End if
msgbox("Nachricht: " & str2.Substring(4)) 
' usw...
End if
Loop
sr.close