Как можно решить задачу на VBA

Question

Задача: Найти произведение четных элементов, находящихся в диапазоне от 3 до 13 числового ряда: 2,4,5,2,6,-2,2,0,8

Олег · Accepted Answer

Sub ttt() 
 ar = Split("2,4,5,2,6,-2,2,0,8", ",") 
 p = 1 
 For i = 0 To 8 
 n = CInt(ar(i)) 
 If n >= 3 And n <= 13 And n Mod 2 = 0 Then 
 p = p * n 
 End If 
 Next 
 
 If p = 1 Then 
 MsgBox "Нет подходящих элементов" 
 Else 
 MsgBox p 
 End If 
 
End Sub