Imports System

Public Module Module1

    Public Sub Main()

​

    ' go through a string a letter at a time    

    dim startString as string = "Ready Set Go"

    dim count as integer

        dim vowel as integer

​

    for count = 0 to startString.Length - 1

        Console.WriteLine(startString(count))

        count = count + 1 

        if startString(count) = "a" Or startString(count) = "e" Or startString(count) = "i" Or startString(count) = "o" Or startString(count) = "u" then

            vowel += 1

        end if

    next

    console.WriteLine("there are " & vowel &  " vowel(s) ")

    End Sub

End Module