For Each - Next

This gives you access to all the elements in an Array or Collection without knowing (or checking) exactly how many elements there are.
The data type of oItem must be Variant.

Elements in an Array

This loops through all the items in the array.

Public Sub ForEachNext1() 
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 ForEachNext2() 
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.