Option Explicit
' Private-атрибуты класса
Private FIndic_ID1 As String 
Private FIndic_Name1 As String 
Private FDB As Database ' Ссылка на базу данных
...
' Описание read-only свойств
Public Property Get DB() As Database
  Set DB = FDB
End Property

' Конструктор класса
Private Sub Class_Initialize()

End Sub

' Деструктор класса
Private Sub Class_Terminate()

End Sub

' Описание public-метода
Public Sub InitData(DB_ As Database, _
          Optional ASignificance As Double =  0 . 05 )
  Set FDB = DB_
  FSignificance = ASignificance
  ...
End Sub

Public Sub ExportToHTML(Optional ByVal FileName As String = "")
...
End Sub

' Описание private-методов
Private Sub GetIndicProperties(ByVal AIndic_ID As String, _
          ByRef OName As String, ByRef OUnit As String)
...
End Sub

Public Correlation As TCorrelation
...
  Set Correlation = New TCorrelation
  Call Correlation.InitData(IndDB, signific)
  Call Correlation.Calculate
  Call Correlation.ExportToHTML