Private Sub LinesBehindKeyChar(ByVal c As Char)
 
        Dim pos, linenumber As Integer
        For Each zeile As String In IO.File.ReadAllLines("IrgendeineDatei.txt")
            linenumber += 1
            pos = zeile.IndexOf(c)
            If pos >= 0 And pos < zeile.Length -1 Then
                Console.WriteLine(zeile.Substring(pos + 1))
            Else
                Console.WriteLine(" - Startzeichen nicht gefunden in Zeile - " _
                  + CStr(linenumber))
            End If
        Next
        Console.ReadLine()
    End Sub