Visual Basic - Leer coordenadas de puntos de archivo .txt y almacenarlas en dos vectorees X e Y

Private Sub Command1_Click()

Dim contentfile As String

Dim ruta_archivo As String

ruta_archivo = Me.CommonDialog1.FileName

On Error GoTo fin

Form1.CommonDialog1.ShowOpen

Open Form1.CommonDialog1.FileName For Input As #1

Do Until EOF(1)

Input #1, contentfile

Form1.Text1 = Form1.Text1 + contentfile + vbCrLf

Loop

Close #1

fin:

End Sub

Private Sub Command1_Click()

Dim contentfile As String

Dim ruta_archivo As String

ruta_archivo = Me.CommonDialog1.FileName

On Error GoTo fin

Form1.CommonDialog1.ShowOpen

Open Form1.CommonDialog1.FileName For Input As #1

Do Until EOF(1)

 Line Input #1, contentfile         'Lee la cadena

  'Input #1, contentfile

  msgbox contentfile

'Form1.Text1 = Form1.Text1 + contentfile + vbCrLf

Loop

Close #1

fin:

End Sub

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