Найти произведение чисел, не делящихся нацело на 5, наибольшее из таких чисел, и номер этого числа в последовательности

Sub zadacha()
Dim s As Integer
Dim N
Dim i As Integer
Dim x As Byte
Dim priznak As Boolean
Dim minX As Single
Dim minN As Integer
Dim m() As Integer
priznak = False
Do
Do
N = InputBox("Кол-во чисел в последовательности")
Loop Until IsNumeric(N)
Loop Until N = CInt(N)
For i = 1 To N Step 1
Do
 
x = Replace(InputBox("Введите  натуральное число № " & i), ".", ".")
Loop Until IsNumeric(x)
s = s * x
If Int(x) Mod 5 <> 0 Then
If priznak = False Then
minX = i
minN = s * x
priznak = True
ElseIf x > minX Then
minX = x
minN = i
End If
End If
Next i
If priznak = True Then
MsgBox "Наибольшее подходящее число = " _
& minX & Chr(13) & "Его № = " & minN & Chr(13) & "Сумма четных чисел = " & s
Else
MsgBox "Нужных чисел нет"
End If
End Sub

Sub zadacha()
Dim s As Integer
Dim N
Dim i As Integer
Dim x As Byte
Dim priznak As Boolean
Dim minX As Single
Dim minN As Integer
Dim m() As Integer
priznak = False
Do
  Do
    N = InputBox("Кол-во чисел в последовательности")
  Loop Until IsNumeric(N)
Loop Until N = CInt(N)
 
For i = 1 To N Step 1
  Do
    x = Replace(InputBox("Введите  натуральное число № " & i), ".", ".")
  Loop Until IsNumeric(x)
  
  If Int(x) Mod 5 <> 0 Then
    If priznak = False Then
      s = x
      minN = i
      minX = x
      priznak = True
    Else
      s = s * x
      If x > minX Then
        minX = x
        minN = i
      End If
    End If
  End If
Next i
If priznak = True Then
  MsgBox "Наибольшее подходящее число = " _
  & minX & Chr(13) & "Его № = " & minN & Chr(13) & "произведение чисел, не делящихся нацело на 5 = " & s
Else
  MsgBox "Нужных чисел нет"
End If
End Sub

Option Explicit
Sub torgovan()
 
Const rMin As Integer = 1, rMax As Integer = 16, Devider As Integer = 5
Dim Msg As String, InBox As String, N As Integer, L As Boolean
Dim i As Integer, j As Integer, Product As Double
Dim iMax As Integer, Max As Integer
 
Do
    Msg = ""
    Do
        InBox = InputBox(Msg + vbCr + "Введите количество чисел последовательности", "Введите натуральное число >0")
        If (InBox) = "" Then Exit Sub
        Msg = "Введенное данное """ + InBox + """ не корректно"
        On Error Resume Next
            N = CInt(InBox)
            L = Not Err.Number <> 0
        On Error GoTo 0
        If L Then L = N > 0 And N = CDbl(InBox)
    Loop Until L
    
    Msg = ""
    Product = 1:    Max = 0: iMax = 0
    Randomize
    For i = 1 To N
        j = Int((rMax - rMin + 1) * Rnd + rMin)
        If j Mod Devider <> 0 Then
            Msg = Msg + CStr(j) + "=(" + CStr(i) + ")" + vbTab
            Product = Product * j
            If iMax = 0 Then
                Max = j
                iMax = i
            Else
                If Max < j Then
                    Max = j
                    iMax = i
                End If
            End If
        Else
            Msg = Msg + CStr(j) + "=[" + CStr(i) + "]" + vbTab
        End If
    Next
    If iMax > 0 Then
        Msg = Msg + vbCr + vbCr + "Максимум из чисел, не делящихся на " + CStr(Devider) + " =" + vbTab + CStr(Max) + "  (" + CStr(iMax) + ")" + vbCr + _
                "Произведение чисел, не делящихся на " + CStr(Devider) + " =" + vbTab + CStr(Product)
    Else
        Msg = Msg + vbCr + vbCr + "Нет чисел, не делящихся на " + CStr(Devider)
    End If
    MsgBox Msg
Loop
End Sub