[求助] VBA的问题 ，恳请各位大侠帮忙啊

shuseed

Dim pBHandle() As String    '所有被选中钻孔实体句柄数组

......................

For i = 0 To UBound(pBHandle)

 If (StrComp(strBoreID, pBores(i).ID, vbTextCompare) = 0) Then
           
                intTag = i
                strBHandle = pBHandle(i)
                Exit For
            End If

为什么执行的时候总是说什么“下标越限”