использование array

Sub fff()
Dim MyArr
MyArr = Array(10, 22, 100, "ghghgh")

For Each a In MyArr
  Debug.Print a
Next
End Sub