vb6 - Why my code in VB 6 is not working? -

i need code when type (a,i,o,u,e) count character .. wrote doesn't work .. please me.. sorry bad english

n = val(inputbox("enter number")) = 1 len(n)       k = mid(n, i, 1)       k = lcase k      select case k           case "a""i""o""u""e": t = t + 1       end select  next print t 

val() convert input value number there never vowels.. removing , correcting missing commas in case condition:

dim n string, t long n = inputbox("enter number")  = 1 len(n)     select case lcase$(mid$(n, i, 1))         case "a", "i", "o", "u", "e": t = t + 1     end select next print t