Example - CBool Function

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