Imports System

Public Module Module1

    Public Sub Main()

        Dim str as String = "T"

        Select Case str

            Case "A" Or "T" 'Errors out beacuse of Bitwise operation 

            Console.WriteLine("Worked")

        Case Else 

            Console.WriteLine("Not Worked")

        End Select

    End Sub

End Module