Imports System

Public Module Module1

    Public Sub Main()

        dim q4 = 2

        dim q6 = (q4 And 2)

        Console.WriteLine("q6: " & q6)

         If (q4 And 2) = 2 Then 

            Console.WriteLine("Entra")

        End If

    End Sub

End Module