程序执行出了问题，请教大家如何解决

我的程序定义了一个sendcmd函数，其有一个withevent自带事件cprreceive
就是一旦执行sendcmd马上激发cprreceive，但是sendcmd和cprreceive是异步的现在，我的程序不得不把sendcmd放在一个循环里面
         for i = 1 to 9
             cmd = ****(要发送的命令)
             sendcmd
         next
可是，结果是cmd被发送出去，可是没有来得及执行cprreceive里的语句，循环发送了9次指令。我想要sendcmd后执行cprreceive，然后再发送下一条cmd，要怎么办呢？
我已经试过在sendcmd后面加sleep延时，结果失败了。如果在cprreceive中加sendmessage能行吗？
可是sendmessage我又不太熟，所以能不能具体告诉我加那些语句。另外，如果有别的办法也请不吝赐教 。谢谢