Problemas con VBCommand y Open FileName para entrada como #1
El nombre de archivo en Abrir nombre de archivo para entrada como #1 debe estar representado por la ruta completa
Intenta
msgbox dir(Nombre de archivo) El resultado es Es no es el nombre de este archivo y la ruta no está incluida
Si estás seguro de que la ruta es correcta, prueba esta función mía
'Leer archivo y devolver cadena función
Función pública ReadFile(filePath como cadena) como cadena
Atenuar fileStr como cadena
Atenuar tem
Abrir filePath para entrada como #1
Hacer mientras no sea EOF(1)
Entrada de línea #1, tem
fileStr = fileStr & tem & vbCrLf
Bucle
Cerrar #1
ReadFile = fileStr
Finalizar función
'************ ************ **************************************** **********