Io ho avuto un problema simile e l'ho risolto così....
prima apri il file dei dati poi con il Line Input "prelevi" la riga, poi:

(Dim riga as string
dim A() as string)

Riga=riga prelevata dal file.
A = Split(Riga, "_") 'Divisione della riga in stringhe

A questo punto hai le righe divise in stringhe di singoli numeri da A(0) a A(7).

Poi io farei si che la stringa A(2) dia il nome al file e ci salverei le stringhe che mi interessano...
Cioè il nome del file è:
file="c:\" & A(2) & ".txt"
dove l'unità del disco e l'estensione del file la dici tu....
Non sarà ortodosso ma dovrebbe funzionare...
fammi sapere...