dunque se ho capito bene potresti procedere in questo modo:

dopo aver caicato e diviso il file di testo in un array potresti utilizzare un ciclo per caricare i dati. Ecco un semplice esempio:
Premetto che non ho ancora ben capito che tipo di database utilizzi e che codice usi per connetterti ad esso ti faccio quindi un esempio usando un database Access con accesso tramite DAO

codice:
Dim m As Integer
For i = 0 to Ubound(ArrOttenuto)
 If m mod 4 = 0 then m = 0
  DB.addnew
  DB.fileds(m).value = ArrOttenuto(i)
Next
Non ho avuto tempo di testarla e sicuramente richiede parecchie modifiche per adattarla alle tue esigenze.
Fammi sapere se ti è stata utile,se ti server aiuto per cpire quello che ho scritto, o se quello che ti serve è tutt'altra cosa.

Alla prossima