Implementing Edrawing events with VBA

Hi,

Could anyone provide information on how to include Edrawing events such as "_OnFinishedLoadingDocument" in VBA.

My current approach has been to create a separate class with the following, however the event never fires

Private WithEvents EmodelViewControl1 As EModelViewControl

Private Sub EmodelViewControl1_OnFinishedLoadingDocument(ByVal FileName As String)

   

    Debug.Print "Event Fired"

   

End Sub

SolidworksApi macros