Imports System

Public Module Module1

    Public Sub Main()

        Dim n as char

        Console.WriteLine("Input a character")

        n = console.readline()

        Select Case n

        Case "A","B","C","D"

            Console.Writeline("beginning")

        Case else

            Console.Writeline("ending")

        End Select

        Console.WriteLine("Input a character")

        n = console.readline()

        Dim nFlag as boolean

        nFlag = (n ="A") or (n = "B") or (n = "C") or (n = "D")

        If Not(nFlag) then

            console.Writeline("ending")

        Else

            Console.writeline("beginning")  

        End if

    End Sub

End Module