написать программу и логическую функцию

[kiska190593]

Помогите написать программу и логическую функцию принимающую значения True, если в строковой переменной, являющейся единственным аргументом этой функции, отсутствуют гласные русские буквы. Я сделала,но что-то не правильно....Не получается.... ПОМОГИТЕ!!!
Function K(ByVal S$) As Boolean
Dim i%
K = True
S = UCase(S)
For i = 1 To Len(S)
Select Case Mid(S, i, 1)
Case "А", "Е", "Ё", "И", "О", "У", "Ы", "Э", "Ю", "Я"
Exit Function
Case Else
End Select
Next
End Function


Private Sub 4()
MsgBox K(Val(InputBox("Введите слово")))
End Sub

[IgorGO]

Function K(ByVal S$) As Boolean
  Dim i%
  K = False
  For i = 1 To Len(S)
    if instr("АЕЁИОУЫЭЮЯ", ucase(mid(s,i,1))) > 0 then exit function
  next
  k = true
End Function

[DiemonStar]

можно и без цикла:

Function НетГласных(S$) As Boolean
  НетГласных = Not (S Like "*[АЕЁИОУЫЭЮЯ]*")
End Function

[kiska190593]

Спасибо.....