求助 vb filter 问题

[txlk33]

Private Sub Command1_Click()
Dim Arr() As String
Dim X() As String
Dim i As Long

Arr = Array(1, 2, 3, 4, 5, 6, 11, 13, 15, 11, 2, 3, 5)
X = Filter(Arr, "15", False)
For i = 0 To UBOUNT(X)
ListView1.ListItems.Add , , X(0)
Next

End Sub

这个程序为什么不成立呢

[txlk33]

For i = 0 To UBound(X)这个改了，还是错误提示为<数据类型不匹配>

[txlk33]

Arr = Array("1, 2, 3, 4, 5, 6, 11, 13, 15, 11, 2, 3, 5")改了字符串也不成立

数据类型不匹配的话， 还有什么类型呢 黄色错误停留在上面部分。

[SYSSZ]

代码错误太多,改为
Private Sub Command1_Click()

Dim i As Long
Dim itmX As ListItem
ListView1.ColumnHeaders.Add , , "数据"
ListView1.View = lvwReport
Arr = Array(1, 2, 3, 4, 5, 6, 11, 13, 15, 11, 2, 3, 5)

X = Filter(Arr, 15, False)
MsgBox X(0)
For i = 0 To UBound(X)
Set itmX = ListView1.ListItems.Add(, , X(i))
Next

End Sub