For - Each

This gives you access to all the elements in a collection object without knowing exactly how many elements are in the collection.
The data type of the oItem must be either Variant or Object.

Elements in an Array

This loops through all the items in the array.

Public Sub ForEach1() 
Dim arValues As Variant 
Dim oItem As Variant 
   arValues = Array(1,2,3,4,5) 
   For Each oItem In arValues 
      'do something
   Next oItem 
End Sub 

Elements in a Collection

This loops through all the items in the collection.

Public Sub ForEach2() 
Dim MyCollection As New Collection 
Dim oItem As Variant 
   MyCollection.Add "on" 
   MyCollection.Add "tw" 
   MyCollection.Add "th" 
   MyCollection.Add "fo" 
   For Each oItem In MyCollection 
      'do something
   Next oItem 
End Sub 

Exit For

The Exit For statement lets you exit the loop early.