For Each <成員>In<數組或集>
[<語句組>]
[Exit For ]
Next [<成員>]
例子中a為壹個數組；x是成員，不用定義！ 例：
For Each x In a
sum = sum + x
Next x
VB For Each.Next語句在數組中的使用：
VB For Each.Next語句好像只是為二種數據類型專門度身定做的，其壹就是集合，另外壹個就是數組了。通過VB For Each.Next語句，可以十分方便的訪問數組中的任壹元素。請仔細分析壹下下列代碼：
Dim arrString ( 2 ) As String = {"星期壹","星期二","星期三"}
Dim Temp As String
For Each Temp In arrString
If Temp = "星期三" Then
MsgBox ( "在數組中尋找到""星期三""字符串")
Exit For '退出For Each …. Next語句
End If
Next Temp
上面代碼的功能是通過VB For Each.Next語句訪問arrString數組中各元素，如果發現有元素為字符串“星期三”，則彈出提示框，並退出循環。
同樣用For … Next語句也能夠實現上面同樣的功能，只是感覺有點不專業，並且有點繁瑣，下面代碼是用For … Next語句實現上面VB For Each.Next語句同等功能的代碼：
Dim i As Integer
For i = 0 To 2
If arrString ( i ) = "星期三" Then
MsgBox ( "在數組中尋找到""星期三""字符串" )
Exit For
End If
Next i