IViewUpdateEvents

I had developed a program using vba. It was executed successfully in Microstation V8. But in Microstation v8i[Select series 1] - version 08.11.07.171, the same program doesn't work and there is no compile error/runtime error also. How to fix this? Kindly clarify.

The coding snippet is given below for your reference.

clsTrackZoom

Option Explicit
Implements IViewUpdateEvents
Private Sub IViewUpdateEvents_AfterRedraw(TheViews() As View, TheModels() As ModelReference, ByVal DrawMode As MsdDrawingMode)
   updateZoom
End Sub
Private Sub IViewUpdateEvents_BeforeRedraw(TheViews() As View, TheModels() As ModelReference, ByVal DrawMode As MsdDrawingMode)

End Sub

''------------------------------------------------------------------------------------------------------------

modMain

Public Sub RescaleAnnotation()
   Dim objc As clsTrackZoom
   Set objc = New clsTrackZoom 
   AddViewUpdateEventsHandler objc
End Sub

Public Function updateZoom()
   MsgBox "view updated"
End Function