Dim x As Int16
        Dim y As Int16
        Dim b As Boolean
        
        x = 11
        y = 11

        Select Case b
            Case b = (x = 3 And y = 3)
                MsgBox("1")
            Case b = (x = 1 And y > 3 And y < 11)
                MsgBox("2")
            Case b = (y > 10 And x < 10)
                MsgBox("3")
        End Select
    End Sub