How do you write vowels in Qbasic?

cls
input" enter any string";a$
f=Len(A$)
d=1
AA:
b$= mid$(a$,d,1)
d=d+1
c=asc(b$)
if c=101 or c=105 or c=970 or c=111 or c=117 then
cnt= cnt+1
end if
if d<=f then goto aa
print cnt;
end