у меня в модуле класа, есть
Private m_CheckErrors As New Collection
но после выхода из модуля переменная обнуляеться.
Как сделать чтобы сохранялись значения????

сначала в файле 1.cls выполняеться

Dim us As UserChecker
Set us = New UserChecker
For Each us In m_XML_User
If Not us.IChecker_DoCheck Then Exit Function
Next us

в UserChecker`е
If Not IsValidateName(m_Name) Then
Dim che As CheckError
Set che = New CheckError
che.KindOf = CHECK_ERROR_KIND_MISSING
che.Description = "FAILED FOR: " & m_Name

m_CheckErrors.Add che.KindOf
m_CheckErrors.Add che.Description

trace "FAILED FOR: " & m_Name
end if

--------------------------------------------------------------
потом в файле 2.cls
Dim i As Variant
Dim user As UserChecker
Set user = New UserChecker
For Each i In user.IChecker_CheckErrors
err_node.insertBefore i, Null
Next i
Set user = Nothing

в UserChecker`е

Public Property Get IChecker_CheckErrors() As Collection
Set IChecker_CheckErrors = m_CheckErrors
End Property