Boolean to Byte Command

[Daniel McCool]

Is there a built in VB command that converts a Boolean value into a Byte value? I've made my own function ...

Private Function bool(ByVal var As Boolean) As Byte
    If var = True Then
        bool = 1
    Else
        bool = 0
    End If
End Function

... but I'd prefer to use a built in command. Any? Thanks.