 Contents of code file: Test_Addresses.cls</h1><pre>VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Addresses"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_colAddresses As Collection

Private Sub Class_Initialize()

   Set m_colAddresses = New Collection

End Sub

Private Sub Class_Terminate()

   Set m_colAddresses = Nothing

End Sub

Public Property Get Count() As Long

