vbsplit类型不匹配

Dim a, d(), e() As String, b, c, m As Integer
a = "1◎2◎¤1◎2◎¤1◎2◎¤1◎2◎¤"
e = Split(a, "¤")
m = 0
For b = 0 To 3
d = Split(e(b), "◎") '这句类型不正确
m = m + 1
For c = 1 To m
Form1.List1(b).AddItem d(c - 1)
Next c
Next b
求大神解答,满意的追加

split函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

当前 Visual Basic为了完成数据类型的赋值，能够对许多数值进行转换，而较早的版本则做不到。然而，此错误仍可能发生并且有 下列几种原因和解决方法：

变量或属性类型错误。例如，一个整型值的变量不能赋给字符串值，除非整个字符串可识别成为整型。
尽量在兼容的数据类型间赋值。例如，Integer 可以被赋给 Long，Single 可以被赋给 Double，而任何类型（除了用户类型）可以赋给 Variant。

将对象传给了需要单一属性或值的过程。
传递正确的单一属性或调用给工程的方法。

使用了表达式所要的模块或工程名称，例如：
Debug.Print MyModule

指定可以显示的表达式。

将传统 Basic 错误处理例程与拥有 Error 子类型 (10, vbError) 的 Variant 值混合，例如：
Error CVErr(n)

识别一个错误，要将其映射到 Visual Basic 或用户错误，然后产生错误。

CVErr 值不能转换成 Date。例如：
MyVar = CDate(CVErr(9))

使用 Select Case 语句或一些类似的结构映射返回的 CVErr。

在运行时，此错误通常说明在无效子类型的表达式中使用了 Variant，或 包含数组的 Variant 中出现了 Print # 语句。
可用循环显示每个元素以打印数组，。

详细信息，可选取有问题的项目，并按下 F1 键。

类型不匹配：期待数组或用户定义类型

参数或是参数的类型包含数组或用户定义类型。这个错误的原因与解决方法如下所示：

将指定数组或用户定义类型中的一个元素、或一个简单的变量、文字量、常数的参数传给一个期待整个数组或用户定义类型的参数。
请改变参数或是改变参数定义。

参数指定一个数组类型或用户定义类型，但与参数中所定义的不同。
请传递一个其类型是参数所期待的数组，或是改变参数声明的定义。

详细信息，请选择有问题的项目，并按下 F1 键

split函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串 dim b() as string