¿Cómo puedo extraer una palabra en mayúscula de 8 letras de una oración en una celda de Excel?

La oración en la celda A1 es WO# 000000.0 para ITSHTJ en Q0 20000_ITAI0006: TBD Replacement PO y quiero extraer ITAI0006.

He utilizado la siguiente UDF pero no es útil.

Función encontrarMayúsculas(Rng como Rango) como Boolean
Dim Txt
Dim Desc() como Cadena

Desc = Dividir(Rng.Value, " ")
Para cada Txt en Desc
    Si (UCase(Txt) = Txt) entonces
        encontrarMayúsculas = Verdadero
        Salir Función
    Fin si
Siguiente

End Function