ありがとうございます。
結局アルゴリズムの部分だけ抜き出してWSHのタイマー関数を
見てみたら簡単だったので、次のようにしてみました。
表示される精度はミリ秒単位なのですが、内部処理的には結構
適当だという噂も・・・。

st = timer()
　　'<ループ処理>
ed = timer()
result = ed - st

誤差を打ち消す平均の出し方は調べてみます。
わかったらこのスレで報告してよいですか？