Necesito importar un archivo de datos a excel

Hola buenas tardes, mi planteamiento es el siguiente, quiero hacer un macro para abrir archivos de datos *.VF en excel, el procedimiento es: 1 abrir archivo, 2 buscar el archivo, 3 seleccionar delimitar y seleccionar el delimitado por espacios, y después hacer unos cambios en las columnas, para ello, grabando un macro del proceso me sale pero solo sirve para el archivo seleccionado durante la grabación, lo que quiero es que al ejecutar el macro me permita seleccionar el archivo, mis primeros intentos son el siguiente, pero me aparece un error
Sub Macro1()
'
' Macro1 Macro
'
'
' Workbooks.OpenText:= direccion
Dim direccion As Variant
direccion = Application.GetOpenFilename(, , "Busqueda")
If direccion = False Then Exit Sub
ChDir "C:\Documents and Settings\HIDROINFORMATICA2\Escritorio"
Workbooks.OpenText Filename:=direccion
,Origin: _
=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote , ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1)), _
TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=-6
Columns("L:L").Select
Selection.Cut
Columns("N:N").Select
ActiveSheet.Paste
Columns("J:J").Select
Selection.Cut
Columns("L:L").Select
ActiveSheet.Paste
Columns("H:H").Select
Selection.Cut
Columns("J:J").Select
ActiveSheet.Paste
Columns("F:F").Select
Selection.Cut
Columns("H:H").Select
ActiveSheet.Paste
Columns("D:D").Select
Selection.Cut
Columns("F:F").Select
ActiveSheet.Paste
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
End Sub
por otro lado dpizzio (experto) publico un macro para abrir un archivo
Sub Abrir_archivo()
Dim strRutaArchivo As String
strRutaArchivo = Application.GetOpenFilename("Archivo (*.VF), *.VF")
On Error GoTo 9
Workbooks.Open Filename:=strRutaArchivo
9:
End Sub
Funciona muy bien, pero no puedo delimitar mi archivo para que lo separe por espacios
Saludos espero me puedan ayudar con este problema