这是我写的代码
Dim a(0 To 4) As Long
Dim b(0 To 3) As Long
Private Sub Command1_Click()
a(0) = 3: a(1) = 5: a(2) = 7: a(3) = 10: a(4) = 15 '给集合a里的五个元素赋值
Text1.Text = Array(c, d, e, f)                                '文本框1中 输入了 4个元素
b(0) = Array(0): b(1) = Array(1): b(2) = Array(2): b(3) = Array(3) 
If Val(a(m)) = Val(b(n))(m >= 2, n >= 2) Then      '如果文本框中输入的元素的集合与 集合a的交集至少包含两个元素，那么，文本框2 就显示 可以执行。
Text2.Text = "可以执行"
End Sub

程序运行时 文本1 输入 1,2,3,4,5   提示 类型不匹配。

请问怎样写，才可以达到我的目的啊，感谢各位老师了。