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

'************ ************ **************************************** **********