Sub Main Dim A, B, Check A = 5: B = 5 Check = CBool(A = B) Print Check A = 0 Check = CBool(A) Print Check End Sub