Калькулятор перевода в VB

Dim w, e, r, t, p, u, o As Integer, q, y, i, m, z As Byte
 
i = Len(Text2.Text) 
q = Val(Text2.Text) 'Исходное число'
w = Val(Text4.Text) 'СС числа'
e = Val(Text5.Text) 'Результативная СС числа'
r = Val(Text3.Text) 'Результат'
Text6.Text = i
u = 0
y = q 'Рас'
p = ""
 
If (w = 10) Then
While (y > 0)
t = y Mod e
If (t > 10) Then
If (t = 10) Then t = "A"
If (t = 11) Then t = "B"
If (t = 12) Then t = "C"
If (t = 13) Then t = "D"
If (t = 14) Then t = "E"
If (t = 15) Then t = "F"
If (t = 16) Then t = "G"
If (t = 17) Then t = "H"
If (t = 18) Then t = "I"
If (t = 19) Then t = "J"
If (t = 20) Then t = "K"
If (t = 21) Then t = "L"
If (t = 22) Then t = "M"
If (t = 23) Then t = "N"
If (t = 24) Then t = "O"
If (t = 25) Then t = "P"
If (t = 26) Then t = "Q"
If (t = 27) Then t = "R"
If (t = 28) Then t = "S"
If (t = 29) Then t = "T"
If (t = 30) Then t = "U"
If (t = 31) Then t = "V"
If (t = 32) Then t = "W"
If (t = 33) Then t = "X"
If (t = 34) Then t = "Y"
If (t = 35) Then t = "Z"
End If
p = t & p
y = Int(y / e)
u = u + 1
Wend
Text3.Text = p
End If
 
If (e = 10) Then
t = q
p = 0
While (i > 0)
y = t Mod 10
p = p + y * (w ^ u)
u = u + 1
i = i - 1
t = Int(t / 10)
Wend
Text3.Text = p
End If
If (w <> 10) Then
If (e <> 10) Then
t = q
g = i
p = 0
While (g > 0)
y = t Mod 10
p = p + y * (w ^ u)
u = u + 1
g = g - 1
t = Int(t / 10)
Wend
Text7.Text = p
y = p
o = Str(p)
g = Len(o)
Text8.Text = g
u = 0
p = ""
 
While (y > 0)
t = y Mod e
If (t > 10) Then
If (t = 10) Then t = "A"
If (t = 11) Then t = "B"
If (t = 12) Then t = "C"
If (t = 13) Then t = "D"
If (t = 14) Then t = "E"
If (t = 15) Then t = "F"
If (t = 16) Then t = "G"
If (t = 17) Then t = "H"
If (t = 18) Then t = "I"
If (t = 19) Then t = "J"
If (t = 20) Then t = "K"
If (t = 21) Then t = "L"
If (t = 22) Then t = "M"
If (t = 23) Then t = "N"
If (t = 24) Then t = "O"
If (t = 25) Then t = "P"
If (t = 26) Then t = "Q"
If (t = 27) Then t = "R"
If (t = 28) Then t = "S"
If (t = 29) Then t = "T"
If (t = 30) Then t = "U"
If (t = 31) Then t = "V"
If (t = 32) Then t = "W"
If (t = 33) Then t = "X"
If (t = 34) Then t = "Y"
If (t = 35) Then t = "Z"
End If
p = t & p
y = Int(y / e)
u = u + 1
Wend
Text3.Text = p
End If
End If
End Sub

'функция принимает десятичное исходное число и преобразует
'его в число указанной системы счисления (второй аргумент)
Function ScaleOfNotation(iNumber As Long, iScale As Long) As String
    Dim iTmp As Long
    iTmp = Abs(iNumber)
    If iTmp = 0 Then
        ScaleOfNotation = "0"
        Exit Function
    End If
    Do
        ScaleOfNotation = ScaleOfNotation & CStr(iTmp Mod iScale)
        iTmp = iTmp \ iScale
    Loop While iTmp
    If Sgn(iNumber) < 0 Then ScaleOfNotation = ScaleOfNotation & "-"
    ScaleOfNotation = StrReverse(ScaleOfNotation)
End Function
 
 
'преобразует число из указанной системы счисления в 
'в десятичную систему
Function ToDecimal(sNumber As String, iScale As Long) As Long
    On Error GoTo Lb
    Dim iLen As Long
    Dim i As Long, y As Long
    Dim s As String, s2 As String
    Dim blnSgn As Boolean
    s = Trim(sNumber)
    iLen = Len(sNumber)
    If iLen = 0 Then
        ToDecimal = 0
        Exit Function
    End If
    s2 = Left(s, 1)
    If s2 = "-" Then
        blnSgn = True
        s = Right(s, iLen - 1)
        iLen = iLen - 1
    End If
    For i = 1 To iLen
        s2 = Mid(s, i, 1)
        y = CLng(s2)
        If y >= iScale Then Error 11
        ToDecimal = ToDecimal + y * (iScale ^ (iLen - i))
    Next i
    If blnSgn Then ToDecimal = -ToDecimal
    Exit Function
Lb:
    MsgBox "Invalid argument of function."
End Function