TempString = System.IO.File.ReadAllLines("\\server1\Belegung\Belegung.txt")
 
        While Zaehler < TempString.Length
            If TempString(Zaehler).StartsWith(lIDPlan) Then
                MsgBox(TempString(Zaehler))
            End If
            Zaehler += 1
        End While