Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        'Prompt for user input

        Console.WriteLine("Type in a single letter.")

        Dim input As String = Console.ReadLine()

​

        'Check for any vowels

        If input = "a" OrElse input = "e" OrElse input = "i" OrElse input = "o" OrElse input = "u" OrElse input = "y" OrElse _

            input = "A" OrElse input = "E" OrElse input = "I" OrElse input = "O" OrElse input = "U" OrElse input = "Y" Then

            Console.WriteLine("You entered in a vowel.")

        ElseIf input = "b" OrElse input = "c" OrElse input = "d" OrElse input = "f" OrElse input = "g" OrElse input = "h" OrElse input = "j" OrElse input = "k" OrElse input = "l" OrElse input = "m" OrElse input = "n" OrElse input = "p" OrElse input = "q" OrElse input = "r" OrElse input = "s" OrElse input = "t" OrElse input = "v" OrElse input = "w" OrElse input = "x" OrElse input = "z" OrElse _

            input = "B" OrElse input = "C" OrElse input = "D" OrElse input = "F" OrElse input = "G" OrElse input = "H" OrElse input = "J" OrElse input = "K" OrElse input = "L" OrElse input = "M" OrElse input = "N" OrElse input = "P" OrElse input = "Q" OrElse input = "R" OrElse input = "S" OrElse input = "T" OrElse input = "V" OrElse input = "W" OrElse input = "X" OrElse input = "Z" Then

            Console.WriteLine("You entered in a consonant.")

        Else

            Console.WriteLine("You did not enter in a single letter.")

        End If

    End Sub

End Module