Dim list As New List(Of String)
 
      Using sr As New System.IO.StreamReader("datei.txt")
         Dim line As String = String.Empty
 
         While Not sr.EndOfStream
            line = sr.ReadLine
 
            If line.StartsWith("http") Then
               list.Add(line)
            End If
         End While
      End Using