Public Function einlesen(ByVal Value As String) As String
        Dim Filename As String = Application.StartupPath & "\Deine TXT im" & _
          "selben Verzeichnis wie dein Program.txt"
        Dim fstreamer As New FileStream(Filename, FileMode.Open, _
        FileAccess.Read)
        Dim SReader As New StreamReader(fstreamer, System.Text.Encoding.Default)
 
        Dim Zeile() As String
        Dim temp As String
 
        Do Until SReader.Peek = -1
            temp = SReader.ReadLine()
            Zeile = temp.Split(":")
            If Zeile(0) = Value Then
                Return Zeile(3)
                SReader.Close()
                fstreamer.Close()
                Exit Function
            End If
        Loop
        Return "Nichts gefunden"
        SReader.Close()
        fstreamer.Close()
 
    End Function