This example updates the next field in the selection.
If Not (Selection.NextField Is Nothing) Then
Selection.Fields.Update
End If
This example selects the next field in the selection, and if a field is found, displays a message in the status bar.
Set myField = Selection.NextField
If Not (myField Is Nothing) Then StatusBar = "Field found"