problema con ejecucion de funcion VBA en excel

[herramienta]

Ok este es el codigo

Private Sub CargaCfg_Click()
'abre un archivo "cfg" y copia los valores que tiene en las celdas adecuadas de la hoja cfg de "prueba.xls"

Dim barra As String
Dim cadena As String
Dim posicion As String
Dim numerocaracteresdirectorio As String
Dim totalcaracteres As String
Dim nombrearchivo As String
Dim longitudlinea As String

Dim aux As String

barra = "\"
igual = "="
numerocaracteresdirectorio = Len(Range("[prueba.xls]cfg!d41").Value) 'valor de la ruta del directorio de trabajo
Close #1
Open Range("[prueba.xls]cfg!d41") + "\" + Range("[prueba.xls]cfg!e42") + ".cfg" For Input As #1 'abrimos el archivo de configuracion como lectura de texto
Line Input #1, cadena 'leemos la cabecera
Line Input #1, cadena 'leemos la 2ª linea (vacia)

Line Input #1, cadena 'leemos la linea que contiene la ruta del archivo DFQL
longitudlinea = Len(cadena) 'longitud del la linea
posicion = InStrRev(cadena, barra) 'vemos desde donde coger el nombre del fichero
nombrearchivo = Right(cadena, posicion - numerocaracteresdirectorio)
Range("[prueba.xls]cfg!e33").Value = nombrearchivo 'pegamos la celda del archivo DFQL


hasta ahi funciona, lo he comprobado, pero el Rigth famoso no funciona. El codigo está en una de las páginas donde si persionas un boton, se ejecuta el código, no tiene más. Si rehago el código con la misma función en un archivo "virgen" funciona. Por eso no entiendo que es, debe ser del archivo original sobre el que añado este código. Ayuda por favor!!!