Function DecToBin(ByVal Dec) As String Do DecToBin DecToBin & IIf((Dec Mod 2) 0, "0", "1") Dec = Dec \ 2 Loop Until (Dec = 0) DecToBin = StrReverse(DecToBin) End Function
Private Function dec_bin(ByVal dec As Long) As String Do dec_bin ("1" And dec Mod 2 1) & dec_bin dec = dec \ 2 Loop Until dec = 0 End Function