多线程中函数执行的问题！？

主程序创建了一个子线程，在子线程中调用一个函数，这个函数主要是现对主线程中全局变量的保存，其中使用到XMLDom40，但该函数总是得不到执行，请高手指教。
代码如下：
sub MyThread（）
    dim a as long
    while true
        sleep（500）
        a=a+1
        if a=4 then
           myFunction'保存数据
        end if
    wend
end sub