Дан одномерный массив А(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 IfNext iMsgBox ("Кратны 3: " & s & min & " - минимальный")