Public Sub Organization_BeforeSave(oRecord As Object, bCancel As Boolean)
    'oRecord              : record object being saved
    'bCancel              : set to true to cancel the save operation

   Dim oOrg As COrganization2
   Set oOrg = oRecord
   Dim odataObject As IBBDataObject
   Set odataObject = oOrg
   Debug.Print oOrg.Fields(ORGANIZATION2_fld_CITY)
   Debug.Print odataObject.Dirty
   Set oOrg = 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.