Public Sub giftamendments()
 Dim ogift As CGift
 Set ogift = New CGift
 ogift.Init REApplication.SessionContext
 
 Dim oGiftAmend As IBBAmendment
 
 Dim og As IBBGift2
 
 With ogift
   .Load 1517

   Set og = ogift
   For Each oGiftAmend In og.Amendments
       Debug.Print oGiftAmend.Fields(AMENDMENT_fld_Amount)
   Next oGiftAmend
 
   End With
  
   ogift.CloseDown
   Set ogift = Nothing
  
   Set oGiftAmend = Nothing
   Set og = 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.