Me imagino que tendrás más datos con este formato ¿no?
Creo que la mejor opción es tratar de convertir a numérico sólo la parte de la cadena que te interesa, que en este caso son los 5 últimos caracteres.
¿Has probado esto?
'Variable donde voy a almacenar el número
dim MiNumero as integer
'Creo que VBA tiene una conversión implicita y esto te funcionará.
MiNumero = Right(<DatoAConvertir>,5)