Dim sr As New System.IO.StreamReader("d:\juhu\irgendwas.txt")
 
        Dim Anrede As String
        Dim Titel As String
        Dim Nachname As String
        Dim Vorname As String
 
        Dim Zeileninhalt As String
        Dim Arr() As String
 
        Do While Not sr.EndOfStream
            Zeileninhalt = sr.ReadLine()
            Arr = Zeileninhalt.Split(";")
            Anrede = Arr(0)
            Titel = Arr(1)
            Nachname = Arr(2)
            Vorname = Arr(3)
 
            MessageBox.Show("Die Anrede lautet: " & Anrede & vbCrLf & "Der" & _
              "Titel lautet: " & Titel & vbCrLf & "Nachname und Vorname lauten:" & _
              "" & Nachname & ", " & Vorname)
 
        Loop
 
        sr.Close()

EALA FREYA FRESENA