Public Sub DeletePhilanthropicInterests()
 
    Dim oRec As CRecord
    Dim oProspect As CProspect
    Dim oPl As CPhilanthropy
    
    Set oRec = New CRecord
    oRec.Init REApplication.SessionContext
    
    'Load record using system record ID
    oRec.Load 753
    
    Set oProspect = oRec.Prospect
    
    For Each oPl In oProspect.Interests
        oProspect.Interests.Remove oPl
    Next oPl
    
    oRec.Save
    
    oRec.Closedown
    Set oRec = Nothing
    Set oProspect = Nothing
    Set oPl = Nothing
    
End Sub