Public Function einlesen(ByVal Value As String) As String
    Dim Filename As String = Application.StartupPath & "\Deine TXT im selben" & _
      "Verzeichnis wie dein Program.txt"
    Using SReader As New StreamReader(Filename, System.Text.Encoding.Default)
         Dim temp As String
        Do Until SReader.Peek = -1
            temp = SReader.ReadLine()
            Dim Zeile() As String = temp.Split(":")
 
            If ( Zeile.Length > 0 ) ANDALSO ( Zeile(0) = Value) Then
                Return Zeile(3)
            End If
        Loop
        Return string.Empty
   End Using
    End Function