Public Sub Initialize(callerModule As Object, handlerPrefix As String)
caller = callerModule
prefix = handlerPrefix
End Sub
Public Sub callMe(msg As String)
returnCall(msg)
End Sub
Private Sub returnCall(msg As String)
If SubExists(caller, prefix & "_Ok") Then CallSub2(caller, prefix & "_Ok", msg)
End Sub