leer un archivo de texto con Visual Basic 6.0

[zeroyevi]

'archivo de texto--------
0000001 0000000234
0000002 0000003848
0000003 0000448873
9387409 9999888888
------------------------------

bueno no puedo entregar todo el codigo
necesitan un comond dialog
un boton

el programa lee un texto plano y con un split busco los espacios y los coloco en una matriz lineal
'---------------------------------------------------------------------------
' boton
ArchivoLeer (txtrutaarchivo.Text)
' fin boton


'----------------------------------------------------------------------
Private Sub ArchivoLeer(ByVal ArchivoPath As String)
On Error GoTo e
Dim StrSQL As String
Open ArchivoPath For Input As #1


Do While Not EOF(1)
Line Input #1, sCadena1
palabras = Split(sCadena1, " ")
StrSQL = ""
StrSQL = " INSERT INTO [nom_tabla](campo0,campo1,campo2) VALUES ('" _
& Trim(txtNombreDocumento) & "','" _
& Trim(palabras(0)) & "' ,'" _
& Trim(palabras(1)) & "')"

conexcionSQL.Execute StrSQL


Loop
Close #1


MsgBox "Importado OK", vbInformation, "Informe Sistema"

Exit Sub
e:
Close #1
Err.Clear
End Sub

' espero que les sirva si no manden un mail saludos