So etwas in der Art sollte dir helfen:
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set oTextDatei = fs.OpenTextFile(TextDatei)
        Do Until oTextDatei.AtEndOfStream
          sMyLine = Trim(oTextDatei.ReadLine)
        Loop
Damit kannst du zeilenweise lesen und auswerten.
------------------
Grüße aus dem Thurgau
Thomas
+++++++++++++++++++++++++++++++++
CATIA - eine Laune der Natur ...
"Phase 2 in CATIA V5"  - www.tobeplus.de
 
          tberger@tobeplus.de 
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP