dim lngZeile as Long 'Zeilennummer
dim strZeile as string
dim varTeile as variant
 
Open "C:\Eigene Dateien\Adresse.txt" For Input As #1 ' Datei zum Einlesen 
' öffnen. 
 
do 'Los gehts
Line Input #1, strZeile
lngZeile = lngZeile + 1
loop until lngZeile <> 3 ' solange einlesen bis die dritte Zeile erreicht ist
 
varTeile = split(strZeile, ",") 'Gesamtstring aufsplitte in die Einzelteile
 
close #1

Gruss

Markus

P.S.
- immer lachen: Es kann nur besser werden!