VBA/Excel/Access/Word/Data Type Functions/CBool

CBool() converts value to Boolean

   <source lang="vb">

Sub bool()

   Debug.Print CBool(1)

End Sub

</source>