Private Function Dez2Bin(ByVal nIn As Long) As String
    Dim i As Integer
    Dim BinString As String
    Dim b As Boolean
 
    For i = 31 To 0 Step -1
        If (nIn - 2 ^ i) >= 0 Then
          BinString = BinString + "1"
          nIn = nIn - 2 ^ i
          b = True
        ElseIf b Then
          BinString = BinString + "0"
        End If
    Next
 
    Dez2Bin = BinString
End Function