Дан одномерный массив А (30). Найти все элементы массива, кратные 3 и среди них найти наименьшее. VBA

Если массив уже заполнен, то данная задача будет решена следующим фрагментом программы:

For i = 1 To 30

If (A (i) Mod 3) = 0 Then

s = s + Str (A (i)) + "; "

If min > A (i) Then min = A (i)

End If

Next i

MsgBox ("Кратны 3: " & s & min & " - минимальный")