Podemos utilizar la función InStr para encontrar la última posición que ocupa una letra o texto en una cadena.

El código se muestra a continuación:

function BuscarUltimo( cTexto as string, cBuscar as string) as long
    Dim n as long, m as long
    Do while true 
        n = InStr( m+1, cTexto, cBuscar)
        if n=0 then exit do
        m=n
    Loop    
    BuscarUltimo = m
end function

Por ejemplo, BuscarUltimo("Hola, ¿que tal?", "a") devuelve 13.

Si deseas distinguir mayúsculas/minúsculas, agrega un 1 como cuarto parámetro a la función Instr

    n = InStr( m+1, cTexto, cBuscar, 1)

NOTA: Si el primer parámetro en la función InStr es cero, o menor que cero, se produce un error. Que no te vuelva loco