调试错误（参数不正确）

Public Function PointTest(Pt As Long) As Boolean
    
    If getCivilObjects = False Then
        Exit Function
    End If
    
    Dim oPoint As AeccPoint
    
    Set oPoint = AllPoints.Find(Pt)  <== debug stops here, value of 'oPoint' is "Nothing"
    
    If oPoint Is Nothing Then
        MsgBox "point not found"
    End If

On Error Resume Next
For I = iStPnt To iEndPnt
    Set oPoint = cPoints.Find(I)
    If Err.Number = 0 Then
        If oPoint.Number = iStPnt Then
            iStPnt = iStPnt + 1
        Else
            J = J + 1
            lPnts(J) = I
        End If
    Else
        Err.Clear 'just clear the error, I need not do anything with it
    End If
Next I

Public Function GroupsTest()
    If getCivilObjects = False Then
        GroupsTest = False
        Exit Function
    End If
    
    Dim oGroups As AeccPointGroups
    Set oGroups = AeccDoc.PointGroups
    
    Dim oGroup As AeccPointGroup
    Set oGroup = oGroups.Item("_All Points")
    
    If oGroup.ContainsPoint(9999) Then '9999 is not in the dwg
        GroupsTest = True
    Else
        MsgBox "point not found"
    End If
    
End Function

Public Function PointTest(Pt As Long) As Boolean
    On Error Goto ErrorHandler
        
    If getCivilObjects = False Then
        Exit Function
    End If
    
    Dim oPoint As AeccPoint
    
    Set oPoint = AllPoints.Find(Pt)  'Need to catch the error number that was thrown here.
    
    If oPoint Is Nothing Then
        MsgBox "point not found"
    End If
        
        'bunch of stuff here
ExitHere:
        'clean up any references...
        set oPoint = nothing
        
        
        exit function
ErrorHandler:
        select case Err.number
        case -22222 '<-This would be where the error that is thrown from the .Find method
                resume next 'resume on the line following where the error was thrown
        case else
                msgbox "Something just happened..."
        end select
        
        resume ExitHere
end function