'
'Objeto MyObject
'
Event MiEvento()

Sub HacerAlgo()
  RaiseEvent MiEvento
End Sub

'
'Formulario frmMain
'
Private csObject As MyObject

Private Sub Form_Load()
  Set csObject = New MyObject
End Sub

Private Sub cmdTest_Click()
  Call csObject.HacerAlgo
End Sub

Private Sub csObject_MiEvento()
  Call MsgBox("Se desencadenó el evento del objeto", vbInformation)
End Sub

Call csRecordset.MoveFirst

Do While Not csRecordset.EOF
  '
  'Buscar los datos en cada campo.
  '

  'Se mueve al próximo registro.
  '
  Call csRecordset.MoveNext
Loop

Private Sub Form1_Unload(Cancel As Integer)
  'Descarga otros formularios antes de terminar.
  '
  Call Unload(Form2)
  Call Unload(Form3)
End Sub