ASP - urgenteeeeee

necesito ayuda quien me puede ayudar con un programa que calcule las vocales y las consonantes en un letrero

const vocales="AEIOU"
dim i,vocales,consonantes

for i=1 to len(letrero)
if instr(vocales,mid(letrero,i,1)) then
vocales=vocales+1
end if
next

consonantes=len(letrero)-vocales