vb6 - VB 6 のコードが機能しないのはなぜですか?

Question

(A,I,O,U,E) 文字を数えるときにコードが必要です..これを書きましたが、うまくいきません..助けてください..下手な英語でごめんなさい

n = Val(InputBox("enter a number"))
For i = 1 To 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