Sub TippsEinlesen()
        Kennzeichen = BereichEinlesen("Kennzeichen")
        Ort = BereichEinlesen("Ort")
    End Sub
 
 
    Function BereichEinlesen(ByVal Bereich As String) As String()
        Dim Zeile As String
        Dim ZeilenNr As Integer
        Dim Zeilen() As String
        Dim Gefunden As Boolean
        Using Sr As New StreamReader(Tippsdatei, Encoding.ASCII)
            While Not Sr.EndOfStream
                Zeile = Sr.ReadLine
                If Zeile.StartsWith(Bereich & "::") Then
                    Gefunden = True
                    Exit While
                End If
            End While
            If Gefunden = False Then Return Nothing
            ' Jetzt bis zum nächsten Bereich oder Ende des Streams lesen
            Do While Not Sr.EndOfStream
                Zeile = Sr.ReadLine()
                If Zeile.Contains("::") Then Exit Do
                ReDim Preserve Zeilen(ZeilenNr)
                Zeilen(ZeilenNr) = Zeile
                ZeilenNr += 1
            Loop
        End Using
        Return Zeilen
    End Function

Visual Basic FTW!!