VBのタイマ精度って50msくらいじゃなかったっけ？
精度を高くしたいなら、ループ中でTimeGetTime使う等するほうが吉。