Private Sub StartListener
If mModule <> Null And mEventName <> "" And SubExists(mModule, mEventName & "_Complete") = False Then Return
ListenerActive = True
Do While ListenerActive
Sleep(1000)
If IsPlaying = False Then ListenerActive = False
Loop
CallSubDelayed(mModule, mEventName & "_Complete")
End Sub