不要讓迴圈吃完資源

            Application.DoEvents()
            System.Threading.Thread.Sleep(1)

數值顯示指定字串顯示位數，不足補0

Dim k as string="555"
Dim Q as string="ABC"

Debug.Print(K.PadLeft(6, "0"))   '顯示為000555

Debug.Print(K.PadLeft(6, "$"))   '顯示為$$$555   (注意，後面的字串只能一個位元)
Debug.Print(K.PadLeft(6, "$NT"))   '顯示為$$$555 (如果後面字串不是一個位元，則會以第一個位元為主)

Debug.Print(K.PadLeft(6, "Z"))   '顯示為ZZZABC