Thanks for the suggestion, but that isn't what I was looking for. I was hoping to find some solution similar to the Excel VBA command Application.StatusBar where I can display actual text to the user as the VBScript is progressing. The solution you propose is only the equivelant to an hour-glass effect.
Any other ideas?
I was able to figure this out. I created a text box, and named it "StatusBar." I then created the below function and called the function whenever I wanted something displayed to the user DURING processing of the VB.
I found that the "WaitForIdle" command would make sure the text box would refresh such that the user would see the content in the "StatusBar" text box. I also found that the "WaitForIdle" command is expensive in terms of processing time. So I also added a parameter in the function "sUpdateScreen" that I could use to tell the function to update the screen or not. Passing "CLS" to the function clears the text box.
set myObject = ActiveDocument.GetSheetObject("StatusBar")
set myObjectProp = myObject.GetProperties
SELECT CASE sStatusBar
myobject.SetText now & ": " & sStatusBar & chr(10) & myobject.GetText
if sUpdateScreen = True then ActiveDocument.GetApplication.WaitForIdle