¿Cómo consigo hacer una función que lea una palabra y determinar cuantas vocales tiene?

El argumento de esta función es la cadena, que puede ser el contenido de una celda o de un control en un Userform.
Function vocal(dato As String)
Dim nro As Integer, cant As Integer, cant2 As Integer
Dim largo As Integer
Dim letra As String
cant = 0
cant2 = 0
nro = 1
largo = Len(dato)
dato = UCase(dato)
While nro <= largo
letra = Mid(dato, nro, 1)
If letra = "A" Or letra = "E" Or letra = "I" Or letra = "O" Or letra = "U" Then
cant = cant + 1
Else
cant2 = cant2 + 1
End If
nro = nro + 1
Wend
vocal = cant
End Function
Saludos
Elsa
*** La función ha sido extraída de mi manual '400Macros'