示例:

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 可选项。数值，指示计算子字符串时使用的比较模式。具体的值请参见“设置”。 设置 Compare 参数可以具有下列值： 常量 说明 Binary 执行二进制比较 Text 执行文本比较