代碼執行不過來怎么解決？　[金字塔]

    最近寫一個程序，需要監控10多個品種的價格變化，我使用了marketdata_RegReportNotify來注冊這些品種，這樣監控的任意一種合約價格變化都會在MarketData_ReportNotify(ReportData)中反應，其中ReportData就包含我要的品種代碼和最新價，我用這些價格與我設置的入場條件進行比較（入場條件預計50-100之間，因為有開倉、平倉、止盈止損等條件），看是否滿足開平倉條件，如果監控的品種少，價格變化較慢，程序應該是可以順暢執行的，如果監控的品種多了，比如5個以上，每一秒都會有好幾個品種價格變化了，問題就出現了：前一個品種的開平倉判斷還沒有執行完，后一個品種的數據又來了，就會導致程序阻塞，很可能導致電腦死機，而vba又不能使用多線程，不知道有哪位高人有好的解決方法。

    我之前寫的甲跟蹤乙賬戶開平倉的程序就碰到這個問題了，當乙賬戶密集成交，瞬間成交多單時，代碼執行不過來導致漏掉一些指令，現在這個程序又碰到類似的問題。

    有碰到類似問題的同志們，一起來討論討論吧，該怎么解決這個問題？