Convertire un numero da Decimale in Binario

Come è noto, per convertire un numero da Decimale in rappresentazione binaria, si può far uso agevolmente dell'apposita funzione Bin$.

Volendo, è ovviamente possibile raggiungere il medesimo risultato con apposito codice, come ad esempio il seguente:

Public Sub Main()

 Dim n As Integer = 123456789
 Dim bb As New Byte[]
 Dim s As String
 
  While n > 0

    bb.Add(CByte(Asc(CStr(n Mod 2))))
    n \= 2

  Wend

  With bb
    .Reverse
    s = bb.ToString()
  End With

  Print "Risultato: "; s
 
End