VBA - Excel - Aplicar formula BuscarV

[Laufwerk]

Hola amigos!!!

Necesito aplicar esta formula en una celda

Código:

=BUSCARV($B5;'H:\[DATABASE.xls]DataBase Deuda'!$A$3:$I$1754;6;FALSO)

He grabado una macro haciéndolo paso por paso y me da esta formula en la macro:

Código:

    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-17],'[Base de datos.xls]DataBase Deuda'!R3C1:R1754C9,6,FALSE)"

alguien me la puede explicar?
no entiendo RC[-17] y R3C1:R1754C9...

Luego me surge otro problema y es que B5 es un numero pero guardado como texto, como puedo hacerlo para que no me de error?
y no puedo convertirlo a numero porque tengo codigos 13 y 013, por lo que no es lo mismo... como lo hago?

Gracias!!!

[Laufwerk]

Tengo una primera solucion y es que la formula aplicada no me da ningún error excepto con los valores 13 y 013.
Finalmente he puesto este codigo

Código:

Dim a As String
a = Trim(Range("B" & intFilaToCopy).Value)
ActiveCell.FormulaR1C1 = "=VLOOKUP(" & a & ",'[Base de datos.xls]DataBase Deuda'!R3C1:R1754C9,6,FALSE)"

pero no me funciona bien con los valores que he comentado.
Para el valor 13 me devuelve DIA, pero para el 013 me tendria que devolver EROSKI, que puedo hacer?

Gracias