CConcreteSubject

Option Explicit

Private m_oSubject As CSubjectObserver
Private m_sState As String

Public Sub init(oSubject_r As CSubjectObserver)
Set m_oSubject = oSubject_r
End Sub

Public Property Let State(sState_r As String)
If sState_r <> m_sState Then ' avoid extraneous updates/notifications
m_sState = sState_r
m_oSubject.Update m_sState
End If
End Property