Где ошибка - VB (171751)

Формулировка задачи:

Дана символьная строка, представляющая собой запись натурального числа в р-ичной системе счисления (2 <= р <= 9). Составить программу перевода этого числа в десятичную систему счисления.

Private Sub Command1_Click()
Dim q As Integer
Dim s As String
Dim i As Integer
 
os = ""
Dim st As Integer
q = Val(InputBox("Введите основание системы счисления"))
If (q < 2 And q > 9) Then
MsgBox ("Основание системы счисления должно быть от 2 до 9")
Return
End If
s = InputBox("Введите число в системе счисления с основанием " & q)
For i = 1 To Len(s)
If (Val(Mid(s, i, 1)) >= q Or (Val(Mid(s, i, 1)) = 0 And Mid(s, i, 1) <> "0")) Then
MsgBox ("Число введено не правильно")
Return
End If
Next
 
For i = Len(s) To 1 Step -1
os = Mid(s, i, 1)
st = Len(s) - i
rez = 0 + os * q ^ st
Next
MsgBox ("Результат " & rez)
End
End Sub

Помогите пожалуйста , где ошибка.

Решение задачи: «Где ошибка»

textual
                            Листинг программы 
                        

                            Private Function NOD(x As Integer, y As Integer) As Integer
    If (x <> 0) Then
       NOD = NOD(y Mod x, x)
    Else
       NOD = y
    End If
End Function
 
Private Sub Command1_Click()
    Dim m As Integer, n As Integer, p As Integer, q As Integer
    m = Str(Text1.Text)
    n = Str(Text2.Text)
    q = NOD(m, n)
    p = m / q
    q = n / q
    MsgBox "ГђГҐГ§ГіГ«ГјГІГ*ГІ: " + Str(p) + Str(q)
End Sub
                        