Dim strDatei As String = "C:\test.ini"
        Dim FileStream As IO.FileStream = New IO.FileStream(strDatei, _
          IO.FileMode.Open)
        Dim StrRe As IO.StreamReader = New IO.StreamReader(FileStream)
        Dim s As String
        s = StrRe.ReadToEnd
        Do While s <> ""
            s = s.Substring(s.IndexOf(NetName), 142)    'hier kopiere ich den 
            ' Abschnitt
            Temp = s.Substring(130, 10)                            ' hier 
            ' kopiere ich den Token
            s = StrRe.ReadLine
        Loop
        FileStream.Close()