CConcreteObserver

Option Explicit
'

Private m_sObserverText As String
Private WithEvents m_oSubjectObserver As CSubjectObserver
'

Public Sub init(oSubjectObserver_r As CSubjectObserver, iObserverNumber_r As Integer)
Set m_oSubjectObserver = oSubjectObserver_r
m_sObserverText = "Observer # " & CStr(iObserverNumber_r)
End Sub
'

Private Sub m_oSubjectObserver_Notify(sState_r As String)
MsgBox sState_r, , m_sObserverText
End Sub
'

Public Property Get State() As String
State = m_sObserverText
End Property