Fai un loop quando leggi il file e
usi le funzioni stringa

codice:
campo1 = Left(stringa,1,10)
... e cosi' via