Elektro:
no entro nunca a la sección net así que recién hoy veo el trabajo que llevas realizado(no todo porque es mucho para ver en una sola vez y no es que me encante la programación) así que FELICITACIONES!! y no lo tomes como un grito sino como lo que es, admiración. Vi un par de codes de decimales y hexadeciales pero no vi de binarios, claro que no tiene uso, salvo a quienes nos gusta la ingeniería inversa más que la programación en si, pero es un minúsculo granito de arena.
Para pasar enteros a binarios
Public Function DecaBin(numero As Integer) As String
If numero <= 2 Then 'Caso Base
DecaBin = (numero \ 2) & (numero Mod 2)
Else 'Caso Recursivo
DecaBin = DecaBin(numero \ 2) & numero Mod 2
End If
End Function
# ejemplo de uso
Textbox = DecaBin(numeromio)