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

Function dec2n(A As Integer, n as integer) As String
    If (n<=1) Or (n > 9) then 
       dec2n="Error!"
    else 
       Do While (A > 0)
           dec2n = CStr(A Mod n) & dec2n
           A = A \ n
       Loop
    end if
End Function

Option Explicit
 
Function ReNum(ByVal sys1&, ByVal exp$, ByVal sys2&) As String
    '
    'Перевод некоторого выражения, в некотором формате,
    'в некоторое другое выражение, заданного формата, или его-же
    '
    'Аргументы: sys1 - система счисления для выражение exp
    '       sys2 - другая система счисления для выражение exp
    'by the fever_brain 2017-March
    '
    Dim i&, j&, m&, d#, s As String * 32
    For i = 1 To Len(exp): d = d * sys1 + CLng("&H" & Mid$(exp, i, 1)): Next: j = 32
    Mid$(s, 32, 1) = 0
    While d > 0
        m = d Mod sys2: Mid$(s, j, 1) = IIf(m > 9, Chr(m + 87), m): d = d \ sys2: j = j - 1
    Wend: ReNum = Mid$(s, InStrRev(s, vbNullChar) + 1)
End Function
 
Private Sub Form_Load()
    Dim i&, j&, ii&, jj&, s$
    Do: ii = 0
        While ii < 2 Or ii > 16: ii = Val(InputBox("Укажи систему счисления от 2 до 16 ", , 10)): Wend
        On Error Resume Next
        Do: j = 0
            While j < 1: s = LCase(InputBox("Введи выражение в формате " & ii & "-ичной системы счисления", , IIf(s = "", 0, s))): j = Len(s): Wend
            For i = 1 To j
                Select Case Asc(Mid$(s, i, 1))
                Case 48 To 57, 97 To 102: If CLng("&H" & Mid$(s, i, 1)) >= ii Then Exit For
                Case Else: Exit For
                End Select
            Next: If i > j Then Exit Do Else MsgBox "Недопустимый формат"
        Loop
        While jj < 2 Or jj > 16: jj = Val(InputBox("Укажи систему счисления в которую нужно перевести выражение, число от 2 до 16 ", , 2)): Wend
        If MsgBox("Ответ:" & vbLf & ReNum(ii, s, jj) & vbLf & "Повторить еще разок ?", 68) = vbNo Then End
    Loop
End Sub