Dim MQSes ,  MQMessage ,  MQQueueManager ,  MQQueue
....
Set MQMessage = MQSes.AccessMessage()
Set Opt = MQSes.AccessGetMessageOptions()
Opt.Options = MQGMO_SYNCPOINT 

...

DO
   Call  MQQueue.Get( MQMessage ,  Opt) 
   inXml$ = MQMessage.ReadString(MQMessage.MessageLength)

   if not ReadyForThisXML(inXml$) then
// и тут я понимаю что обработать в данный момент этот xml не могу. Могу позже. 
// Мне надо его вернуть в очередь (не комитить GET), и продолжить обрабатывать те, что еще есть в очереди. КАК ?
   else
      ....
      Call MQQueueManager.Commit 
   end if
LOOP

Call MQQueue.close()
Call MQQueueManager.disconnect()