杂项

检查文件夹是否存在，若不存在则创建

If Not Directory.Exists("E:\Test456") Then
Directory.CreateDirectory("E:\Test456")
System.IO.File.Create("E:\Test456\1.txt").Dispose()
End If

保留小数

Math.Round(num0 / groupnum, 4)

Split用法

Dim dt(10) As String
dt = Split(data, ";")