Imports System

Public Module Module1

    Public Sub Main()

        dim w as string

        Console.Writeline("enter a word")

        w = Console.Readline()

        Console.Writeline(HasVowel(w))

    End Sub

    Function HasVowel(s as string)

        return s.contains("a" or "e" or "i" or "o" or "u")

    end function

End Module