Выяснить, что цифры трехзначного числа N являются членами геометрической прогрессии

Sub m_3()
Dim b As Long
Dim q As Long
Dim vИскомоеЧисло As Long
Dim vЧислоПрогрессии As Long
b = InputBox("Введите первый член Геометрической прогрессии")
q = InputBox("Введите знаменатель програссии")
vИскомоеЧисло = InputBox("Введите 3-х значное число, чтобы определить, является ли оно членом прогрессии")
Do While vИскомоеЧисло > b
    b = b * q
    If b = vИскомоеЧисло Then
        MsgBox "Это число являет членом Геометрической прогрессии"
        Exit Sub
    End If
Loop
MsgBox "Это число не являет членом Геометрической прогрессии"
End Sub

Private Sub Command1_Click()
Dim vИскомоеЧисло
Dim r As Boolean
vИскомоеЧисло = InputBox("Введите 3-х значное число, чтобы определить, является ли его цифры членами прогрессии")
 
If Len(Trim(vИскомоеЧисло)) <> 3 Then
MsgBox "Error"
Exit Sub
End If
 
r = Val(Mid(vИскомоеЧисло, 2, 1)) / Val(Mid(vИскомоеЧисло, 1, 1)) = _
Val(Mid(vИскомоеЧисло, 3, 1)) / Val(Mid(vИскомоеЧисло, 2, 1))
MsgBox r
 
End Sub

Private Sub Command1_Click()
Dim vИскомоеЧисло
Dim r As Boolean
vИскомоеЧисло = InputBox("Введите 3-х значное число, чтобы определить, является ли его цифры членами прогрессии")
 
If Len(Trim(vИскомоеЧисло)) <> 3 Then
MsgBox "Введите 3-х значное число"
Exit Sub
End If
 On Error GoTo 1
r = Val(Mid(vИскомоеЧисло, 2, 1)) / Val(Mid(vИскомоеЧисло, 1, 1)) = _
Val(Mid(vИскомоеЧисло, 3, 1)) / Val(Mid(vИскомоеЧисло, 2, 1))
MsgBox r
Exit Sub
1 MsgBox "деление на 0"
End Sub