CBool function
CBool( expression )
Converts expressions from one data type to a boolean. The parameter expression must be a valid string or numeric expression.
Example
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