[VBA] Conversione da numero intero a binario

[cicciodoors]

e intanto posta il codice che hai scritto sinora, che lo si controlla, grazie

Salve, il codice é sicuramente errato che stavo facendo delle prove, sbagliando, cmq l ultima prova era cosi:
Sub Binario()

Dim n As Integer
Dim r As Integer
Dim contazero As Integer
Dim contauno As Integer

n = InputBox("Inserisci un numero per trovare il suo binario")
contazero = 0
contauno = 0

While n > 0
r = n Mod 2

If r = 0 Then
contazero = contazero + 1
ElseIf r = 1 Then
contazero = contazero + 1
End If
n = n - 1
Wend
MsgBox ("numero binario " & contazero & contauno)

End Sub