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(w as String)

        if w.Contains("a"

    end function

End Module