This is preliminary documentation and subject to change.
To comment on this topic, please send us email at ngwssdk@microsoft.com. Thanks!
For Each...Next Statement Example
This example uses the
For Each...Next statement to search the
Text property of all elements in a collection for the existence of the string "Hello". In the example,
MyObject
is a text-related object and is an element of the collection
MyCollection
. Both are generic names used for illustration purposes only.
Dim Found, MyObject, MyCollection
Found = False ' Initialize variable.
For Each
MyObject In
MyCollection ' Iterate through each element.
If MyObject.Text = "Hello" Then ' If Text equals "Hello".
Found = True ' Set Found to True.
Exit For
' Exit loop.
End If
Next