Private Sub FindSoftCredits()

     Dim oGifts As CGifts
     Dim oGift As CGift

     Dim oGS As CGiftSoftCredit
     Dim oGSCredits As CGiftSoftCredits

     Dim oRec As CRecord
     Set oRec = New CRecord

     Set oGifts = New CGifts
     oGifts.Init REApplication.SessionContext, tvf_Gift_UseFilterObject
     oGifts.FilterObject.ConstitRecordID = 280

     'looping through all matching gifts
     For Each oGift In oGifts
         Set oGSCredits = oGift.SoftCredits
             For Each oGS In oGSCredits
                 oRec.Init REApplication.SessionContext
                 Set oRec = oGS.Constituent
                 Debug.Print "Gift: " & oGift.Fields(GIFT_fld_Constituent_Name) & " - " & oGift.Fields(GIFT_fld_Amount)
                 Debug.Print "Soft Credit: " & oRec.Fields(RECORDS_fld_FULL_NAME) & " - " & oGS.Fields(GIFTSOFTCREDIT_fld_Amount)
                 oRec.Closedown
                 Set oRec = Nothing
             Next oGS

             oGift.Closedown

         Next oGift

      Set oGift = Nothing

     oGifts.Closedown
     Set oGifts = Nothing

End Sub