:与字符串数组有关的三个函数（Split函数、Join函数、Filter函数）
Split函数
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
Split(字符串[, 分隔符[, 要返回的子字符串数量[,比较方式]]])
后三项可选，默认：分隔符为空格，返回全部子字符串，用Option Compare语句中的设置值执行比较。
下面是将1-12转化为一月-十二月的自定义函数的例子。
Function Num2ch(ByVal n As Integer) As String
Dim Arr
Arr = Split(",一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月", ",")
Num2ch = Arr(n)
End Function
和Array函数相比，用Split的好处在于生成的数组是字符型的，写法上也更简洁。注意“一月”前的逗号，这是因为Split生成的数组下标是从0开始的，且不受Option Base句的影响。