How to count vowels in a string using VB.NET

This blog defines the the number of vowels in a string using VB.NET.

In this blog we enter a string and the below program count the number of vowels from the string.

Vowels = a,e,i,o,u

VB.NET code

Module Module1

    Sub Main()

        Dim I As Integer

        Dim nVowels As Integer

        Dim Vowels As String

        Dim InputString As String

        Vowels = "aeiou"

        Console.WriteLine("Enter the string :")

        InputString = Console.ReadLine()

        For I = 1 To Len(InputString)

            If InStr(Vowels, Mid(InputString, I, 1)) Then

                nVowels = nVowels + 1

            End If

        Next

        Console.WriteLine("The total vowels are :" & nVowels)

    End Sub

End Module

 

OUTPUT