Type of card validation by using select case method

'card validation by using select case method

Option explicit

Dim ctype 'declare card type

'enter card type as input

ctype=inputbox("Enter type of card") 

        Select Case ctype

          Case "visa"

            msgbox("Card valid")

         Case "master"

          msgbox("card valid")

         Case "AE"

         msgbox("invalid card")

         End Select