написать программу и логическую функцию принимающую значения 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

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 "А", "Е", "Ё", "И", "О", "У", "Ы", "Э", "Ю", "Я"
                k=false 'НЕ ХВАТАЛО ЭТОЙ СТРОКИ.
                Exit Function
            Case Else
        End Select
    Next
End Function
 
 
'Private Sub 4() - недопустимое имя!
Sub sub4()
'MsgBox K(Val(InputBox("Введите слово"))) - Val то здесь причём?
MsgBox K(InputBox("Введите слово"))
End Sub

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
        End Select
    Next
    K = True
End Function

Function K(ByVal S$) As Boolean
    Dim i&
    For i = 1 To Len(S)
        if instr(1,"АЕЁИОУЫЭЮЯ", Mid$(S, i, 1),vbtextcompare) then Exit Function
    Next
    K = True
End Function

Function K(ByVal s As String) As Boolean
   K = Not s Like "*[ÀŨÈÎÓÛÝÞß]*"
End Function