Siccome il tracciato del file mi pare un formato CSV, prova ad usare una connessione ad un CSV in ADO così puoi ciclare il tuo file di testo come se fosse una tabella direttamente.
Ho trovato un piccolo esempio pratico per connetterti ad un file di testo con ADO:
Dim cnCSV As New ADODB.Connection
Dim DirCSV as String
DirCSV="C:\miadir"
cnCSV.ConnectionString = _
"Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DefaultDir=" + DirCSV
cnCSV.Open
Ciao
--------------
Maurizio Brini
--------------
Nessuna impresa è mai stata compiuta da un uomo ragionevole