Como coger de un codigo la penúltima y la antepenúltima cifra

[chari]

Estoy utilizando este codiigo

Private Sub Comando11_Click()
Me.codigo = "F" & Format(Me.fecha, "YYMMDD") & "OFE" & Me.informe_fallo_relacionado
End Sub

Este es el código que tengo en un botón con el que quiero crear un código (valga la redundancia). Funciona perfectamente, pero tengo un problemita: lo último que coge (informe_fallo_relacionado) es otro código largo, del que yo sólo quiero coger la penúltima y la antepenúltima cifra. Por ejemplo, si informe_fallo_relacionado es FIFA090702P8600FAL015A (son así en realidad), yo quiero que coja sólo el 15, para que el código que estoy montando ahora salga F090713OFE015.

Espero vuestras respuestas. Gracias.

[Taribo007]

Es decir, quieres coger los dos ultimos caracteres de esa cadena, pqero que sean de tipo numerico, es asi??

FIFA090702P8600FAL015A --> cogerias 15
FIFA090702P8600FAL01A6 --> cogerias 16
FIFA090702P8600FAL023A --> cogerias 23

un saludo