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

А вывод через msgbox делать? Либо тебя только расчетный кусок программки интересует?

Msgbox желанно)

Если массив теснее заполнен, то данная задачка будет решена последующим фрагментом программки:
For i = 1 To 30
   If (A(i) Mod 3) = 0 Then                               
      s = s + Str(A(i)) + "; " 
      If min gt; A(i) Then min = A(i)
      End If
Next i
MsgBox ("Кратны 3: " amp; s amp; min amp; " - малый")