Можно ли быстро узнать сколько гласных букв в каждом слове

[hllh]

Можно ли быстро узнать сколько гласных букв в каждом слове массива, не переводя каждое слово в Ascii код и не делая кучу ифов с этими кодами?????

[ShadowCaster]

Dim words() as String

Function lettr_num(ByVal wrd as String, ByVal lettrs as String) as Long
Dim rs as Long
for a=1 to len(wrd)
if instr(lettrs, mid(wrd, a, 1)) > 0 then rs = rs + 1
next
lettr_num = rs
End Function

---
wrd - Слово из массива
lettrs - Строка символов для проверки
Результат - количество этих символов в слове[/code]