Private Sub GetBenefitsforGift()

   Dim oConstit As CRecord
   Dim oGift As CGift
   Dim oBenefit As IBBBenefit
   Set oConstit = New CRecord
   oConstit.Init REApplication.SessionContext
   oConstit.Load 280

   For Each oGift In oConstit.Gifts
       For Each oBenefit In oGift.Benefits
           MsgBox oBenefit.Fields(BENEFIT_fld_Benefit)
       Next oBenefit
   Next oGift
  Set oBenefit = Nothing
  Set oGift = Nothing
  Set oConstit = Nothing
End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.