vb split函数

严格地讲，只能对变体变量使用，默认输出是动态字符型。如：
dim S
R="1020304050607"
s=split(r,"0")

Function testSplit()
Dim a As String
a = "1,2,3,4,dsd-ad5,6,45,656465,564,45"
Dim b() As String
b() = Split(a, ",")
Debug.Print b(4)
End Function

解释如下：

Split函数
返回一个从零开始的一维数组，其中包含指定数量的子字符串。

FunctionSplit(
ByVal Expression As String,
Optional ByVal Delimiter As String = " ",
Optional ByVal Limit As Integer = -1,
Optional ByVal Compare As CompareMethod = CompareMethod.Binary
) As String()
参数
Expression
必选项。字符串表达式，包含子字符串和分隔符。如果 Expression 是零长度的字符串 ("")，Split 函数将返回长度为一的数组，其中包含一个空字符串。
Delimiter
可选项。单个字符，用于标识子字符串的界限。如果省略了 Delimiter，则假定空白字符 ("") 为分隔符。如果 Delimiter 为零长度字符串，则返回包含整个 Expression 字符串的单元素数组。
Limit
可选项。要返回的子字符串数；默认值为 -1，表示返回所有子字符串。
Compare
可选项。数值，指示计算子字符串时使用的比较模式。具体的值请参见“设置”。