运行时vba存储错误

Question

我收到错误信息为“没有足够的存储空间来完成此操作。请告知我应该如何继续。我已经多次重启计算机但仍面临同样的问题。

On Error Resume Next

For iCtr = 0 To Me.ListBox5.ListCount - 1
If Me.ListBox5.Selected(iCtr) = True Then
Me.ListBox6.AddItem Me.ListBox5.List(iCtr)
End If
Next iCtr

For iCtr = Me.ListBox5.ListCount - 1 To 0 Step -1
If Me.ListBox5.Selected(iCtr) = True Then
'Me.ListBox5.RemoveItem iCtr
End If
Next iCtr