Clipper/FiveWin - vocales-consonantes

Hola amigos, saben si existe alguna funcion que me diferencie cuando una letra es una consonante de una vocal. En concreto he de saber cual es la primera consonante de los apellidos.

Gracias de antemano.
Antonio (Valencia - España)

Antonio, te mando una idea de cómo puedes saber si es vocal.
Esta función mira la primer letra de la cadena que le envíes.
Y la manera de utilizarla sería así:
Function Main
cls
cTexto := "Cadena de prueba"
? IsVocal( cTexto ) // Devuelve .F.
? IsVocal( SubStr( cTexto, 2 ) // Devuelve .T.
? IsVocal( "33234" ) // Devuelve .F.
? IsVocal( chr(179) ) // Devuelve .F.
inkey(0)
Return NIL

*********************************************************
*** Función ISVOCAL ***
*** Parámetros: cTexto string ***
*** Retorna : .T. si es una vocal ***
*** .F. si es consonante, número ***
*** u otro caracter ***
*********************************************************
Function IsVocal( cTexto )
Return( UPPER( Left( cTexto, 1 ) ) $ "AEIOU" )