Visual Basic - Guardar datos de un fichero txt en 2 vectores.

Private Sub Command1_Click()

Dim contentfile As String

Dim ruta_archivo As String

Dim Arreglo1() As String ' Arreglo 1

Dim Arreglo2() As String ' Arreglo 2

Dim C As Long

ruta_archivo = Me.CommonDialog1.FileName

On Error GoTo fin

'Form1.CommonDialog1.ShowOpen

'No se usar vectores pero seria algo ais

Dim L As Integer

Open Form1.CommonDialog1.FileName For Input As #1

C = 0

    Do Until EOF(1)  ' Cuento las lineas

     Line Input #1, contentfile         'Lee la cadena

        C = C + 1

    Loop

    Close #1

ReDim Arreglo1(1 To C) As String

ReDim Arreglo2(1 To C) As String

C = 1

Open ruta_archivo For Input As #1

    Do Until EOF(1)  ' Cuento las lineas

     Line Input #1, contentfile         'Lee la cadena

     x = InStr(1, contentfile, " ")

     Arreglo1(C) = Mid(contentfile, 1, x - 1)

     Arreglo2(C) = Mid(contentfile, x + 1, Len(contentfile) - x + 1)

     C = C + 1

    Loop

    Close #1

fin:

End Sub