I am having an issue with a vbscript set to run as a Data Validation
script triggered by an OnAfterChange event.

The Error I get is An error occurred in the form's code. The number of
calls to the OnAfterChange event for a single update in the data
exceeded the maximum limit.

I have found a few articals on this error but all of them pointed to
jscript which I am unfamiliar with.

--Script------
Sub msoxd_my_txtServerName_OnAfterChange(eventObj)

' Write code here to restore the global state.

If eventObj.IsUndoRedo Then
' An undo or redo operation has occurred and the DOM is read-only.
Exit Sub
End If

' A field change has occurred and the DOM is writable. Write code here
to respond to the changes.
Dim objServerName
Set objServerName =
XDocument.DOM.selectSingleNode("//my:myFields/my:txtServerName")
objServerName.text = ucase(objServerName.text)
End Sub
--end script-----

Any help would be much apperciated... Thanks!