Программа перевода чисел из одной системы счисления в другие - VB

Option Explicit
'
'   © Антихакер32™
'   Перевод числа из 10-й системы счисления в 2-чную
'
Sub Main()
    Const b = 8, s = "&H80&H40&H20&H10&H08&H04&H02&H01"
    Dim num&, f&, tx As String * b
    On Error Resume Next
    Do: num = CByte(InputBox("Num [0-255]", , 0)): If Err Then Exit Sub
        For f = 1 To b: Mid(tx, f, 1) = Sgn((num And Mid(s, (f - 1) * 4 + 1, 4))): Next
        MsgBox num & " = " & tx
    Loop
    End
End Sub