Sub FixedArray()
Dim astrNames(5) As String
Dim intCounter As Integer
astrNames(0) = "A"
astrNames(1) = "B"
astrNames(2) = "C"
astrNames(3) = "Z"
'Use a For...Next loop to loop through the elements of the array
For intCounter = 0 To UBound(astrNames)
Debug.Print astrNames(intCounter)
Next intCounter
End Sub