Ciao, una cosa del genere:
codice:
Private Sub CaricaVettoreDaFile()
   Dim riga As String
   Open "c:\numeri.txt" For Input As #1
   Do Until EOF(1)
      Line Input #1, riga
      ....tue elaborazioni con la variabile riga
      ....
   Loop
   Close #1
End Sub