ssc,

Try this:

lngCmd = Doc.GetVariable("cmdactive")
Do Until lngCmd = 0
lngCmd = Doc.GetVariable("cmdactive")
DoEvents
Loop