Imports System

Module LogicalOperators1
    Sub main()

        Dim a1 As Boolean = True
        Dim b1 As String = "xyz"
        If a1 And b1 Then
            a1 = False
        End If
    End Sub
End Module