Public Sub PhoneLoop()

Dim oPhone As IBBPhone
Dim oConstituent As CRecord
Dim oAddress As CConstitAddress
Dim oConstituents As CRecords
Set oConstituents = New CRecords

oConstituents.Init REApplication.SessionContext

For Each oConstituent In oConstituents
   For Each oAddress In oConstituent.Addresses
       For Each oPhone In oAddress.Phones
        Debug.Print oPhone.Fields(Phone_fld_Num)
       Next oPhone
   Next oAddress

oConstituent.CloseDown
Next oConstituent
oConstituents.CloseDown
Set oConstituents = 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. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.