Public Structure Person
        Dim Anrede As String
        Dim Titel As String
        Dim Vorname As String
        Dim FamName As String
        Dim Strasse As String
    End Structure
 
 
    Private Function CountLines(ByVal filename As String) As Integer
        Dim fs As New IO.StreamReader(filename)
        Dim line As String, counter As Integer
        While Not fs.EndOfStream
            fs.ReadLine() : counter += 1
        End While
        fs.Close()
        Return counter
    End Function
 
    Private Function GetPerson(ByVal filename As String, ByVal Index As _
      Integer) As Person
        Dim fs As New IO.StreamReader(filename)
        Dim line As String, counter As Integer, pers As New Person
        While Not fs.EndOfStream
            line = fs.ReadLine() : counter += 1
            If counter = Index Then
                Dim fields() As String = line.Split(";"c)
                With pers
                    .Anrede = fields(0)
                    .Titel = fields(1)
                    .Vorname = fields(2) : .FamName = fields(3)
                    .Strasse = fields(4)
                End With
                fs.Close()
                Return pers
            End If
        End While
        fs.Close()
        Return Nothing
    End Function