Dim BinString
Dim i
Dim n
Dim b As Boolean
 
 
Private Sub Form_Click()
      For i = 10 To 0 Step -1
        If (n - 2 ^ i) >= 0 Then
          BinString = BinString + "1"
          n = n - 2 ^ i
          b = True
        ElseIf b Then
          BinString = BinString + "0"
        End If
      Next
      MsgBox BinString
End Sub
 
Private Sub Form_Load()
    n = 5
End Sub