sAdressFilePath = "P:\users.log"
Const ForReading = 1
Dim fso, theFile, i, das
i = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(sAdressFilePath, ForReading, False)
Do until theFile.AtEndOfStream
das = theFile.ReadLine
i = i + 1
CountLines = CountLines + 1
msgbox das
Loop
theFile.Close
so tut das bei mir... keine ahnung was dieses addtoarray sein soll oder was es macht, aber is auch egal... variable wird ja ausgegeben
oder statt der variablen kannst du auch das theFile.ReadLine ausgeben lassen also:
msgbox theFile.ReadLine
jetzt musst du dir das ganze nur noch anpassen