Как найти сумму чисел, целая часть которых делится нацело на 3, наименьшее из таких чисел, и номер этого числа в последовательности

Sub primer()
Dim s As Variant
Dim N As Variant
Dim i As Integer
Dim x As Variant
Dim priznak As Boolean
Dim minX As Integer
Dim minN 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
Do
x = InputBox("Введите целое число №" & i)
Loop Until IsNumeric(x)
Loop Until x = CInt(x)
If x Mod 3 = 0 Then
If priznak = False Then
minX = x
minN = i
priznak = True
s = x + s
ElseIf x < minX Then
minX = x
minN = i
End If
End If
Next i
If priznak = True Then
MsgBox "Наименьшее число, делящееся на 3 = " _
& minX & Chr(13) & "Его № = " & minN & "Сумма чисел, делящихся на 3 = " & s
Else
MsgBox "Нужных чисел нет"
End If
End Sub

If int(x) Mod 3 = 0 Then
s = x + s
If priznak = False Then
minX = x
minN = i
priznak = True

Dim N As Integer
Dim ar(100) As Variant
Dim s As Integer
Dim i As Integer
N = 5
For i = 1 To N
    ar(i) = InputBox("Ââåäèòå ÷èñëî")
Next
For i = 1 To N
    If ar(i) Mod 3 = 0 Then
        s = s + ar(i)
    End If
Next
MsgBox (s)

Sub primer()
Dim s As Single
Dim N
Dim i As Integer
Dim x As Single
Dim priznak As Boolean
Dim minX As Single
Dim minN 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 3 = 0 Then
s = x + s
If priznak = False Then
minX = x
minN = i
priznak = True
ElseIf x < minX Then
minX = x
minN = i
End If
End If
Next i
If priznak = True Then
MsgBox "Наименьшее число, делящееся на 3 = " _
& minX & Chr(13) & "Его № = " & minN & Chr(13) & "Сумма чисел, делящихся на 3 = " & s
Else
MsgBox "Нужных чисел нет"
End If
End Sub