不要讓迴圈吃完資源

            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

判斷路徑資料夾是否存在及建立資料夾

VB.NET
判別路徑資料夾是否存在：
 If Not IO.Directory.Exists("Path+資料夾名稱") Then

            '如不存在，建立資料夾
            IO.Directory.CreateDirectory("Path+資料夾名稱")
 End If


判別路徑檔案是否存在：
 System.IO.File.Exists("Path+FileName")