Utilizaciòn de For Each

Dim arreglo() As String
Dim nombres As String
ReDim arreglo(1)
arreglo(0) = "Pedro"
arreglo(1) = "Pablo"
For Each nombres In arreglo
MsgBox(nombres)
Next

otro ejemplo, limpia todos los textbox y se posiciona en el textbox10:

For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then ctrl.Text = ""
Next
TextBox10.Focus()