ていうか、
　　WT = 3-Abs(DateDiff("s", Time, TT))
　　If WT > 0 Then '''3秒内はタブルクリックだ。　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　　End If

は、微かに改定して


　　If Abs(DateDiff("s", Time, TT)) ＜ 3 Then '''3秒未満はタブルクリックだ。　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　　End If

にしよっと。ま、実質おなしだけど
少し、短くした。

by 🤡修正してる内にコードが腐るから綺麗にしなきゃー