Hi,
I am using the following function for decimal numbers but I have a neeed to
convert hex to binary.

Public Function Binary(Number As Long) As String
If Abs(Number) > 1 Then
        Binary = Binary(Number \ 2) & CStr(Abs(Number Mod 2))
    Else
        Binary = CStr(Number)
End If
End Function

thanks
Kirk




--- UseNet To RIME Gateway {at} 2/10/05 2:47:00 PM ---