Imports System

Public Module Module1

    Public Sub Main()

    Dim word as String 

    Dim vowelCount as Integer = 0

    Dim letter As Char

​

​

    Console.WriteLine("Please enter a word")

    word = Console.ReadLine()

    word = word.ToUpper()

​

    For I As Integer = 0 To word.Length - 1

    letter = word.chars(I)

    If letter = “A” Or letter = “E” Or letter = “I” Or letter = “O” Or letter = “U” Then

        vowelCount += 1

    End If 

    Next I

​

    Console.WriteLine(“The number of vowels in you word is “ & “ “ & vowelCount)

​

    End Sub

End Module