获得＆＃34;内存不足＆＃34;循环中小数组的错误

Question

不知怎的，我得到了一个＆＃34;内存不足＆＃34;这个数组有错误。它是从单元格中获取字符串，拆分它并使用结果预选列表框的子类。列表框中只有大约10个项目，之后我清除了数组。

从循环内部调用sub，搜索行（i）以查看文本是否与userform文本框中的文本匹配。如果确实如此，就会运行。

奇怪的是，当子运行时我没有收到错误。我只在卸载用户表单后才能得到它。

Private Sub GetWords (i As Long)
Dim WrdArray() As String
Dim text As String
Dim listnum As Long
Dim wordnum As Long

text = Sheets("Sheet1").Cells(i, "A").Value

WrdArray() = Split(text, ", ")
For wordnum = LBound(WrdArray) To UBound(WrdArray)

    For listnum = 0 To Me.ListBox1.ListCount - 1
        If WrdArray(wordnum) = Me.ListBox1.list(listnum) Then
            Me.ListBox1.Selected(listnum) = True
        Else
        End If
    Next

Next
Erase WrdArray()
End Sub