цикл с вводом цифр

Sub P1()
Dim Счётчик As Integer, p As Integer, vop As String
Do
While vop <> 0
    vop = InputBox("Введите числa")
    Счётчик = Счётчик + 1
    If vop = 0 Then Exit Do
        p = p + 1
Wend
Loop
MsgBox "Количество введённых чисел " & Счётчик
End Sub

Rem Задание: В цикле вводятся числа (ввод продолжается до набора цифры 0).
Rem Найти минимальное число и его номер по порядку.
 
Sub P1()
Dim Номер As Integer, Число As Integer, МинЧисло As Integer
Dim ЕгоНомер As Integer
    Число = InputBox("Введите числa")
    МинЧисло = Число
    Номер = 1
    ЕгоНомер = 1
    While Число <> 0
        Число = InputBox("Введите числa")
        Номер = Номер + 1
        If Число < МинЧисло And Число <> 0 Then
            МинЧисло = Число
            ЕгоНомер = Номер
        End If
    Wend
    MsgBox "Минимальное число " & МинЧисло & " Его номер " & ЕгоНомер
End Sub