Eccoti il codice:

Dim n As Integer
Dim r As String

Private Sub Command1_Click()
n = 72 'Inserisci cio' che vuoi! ;-)
While n <> 1
n2 = n / 2
If Int(n2) = n2 Then
r = r & 0
Else
r = r & 1
End If
n = n2
Wend
r = r & 1 & " = R"
MsgBox StrReverse(r)
End Sub