Народ, есть следующтй класс:

Private WithEvents MyComm As MSComm
Public Event DataEvent(ByVal ScanData As String)

Private Sub Class_Initialize()
   Set MyComm = New MSComm
   MyComm.CommPort = 1
   MyComm.Settings = "9600,N,8,1"
   MyComm.InputMode = comInputModeText
   MyComm.InputLen = 0
   MyComm.RThreshold = 1
   MyComm.PortOpen = True
End Sub

Private Sub Class_Terminate()
    MyComm.PortOpen = False
End Sub

К ком-порту подключён сканер штрих-кодов. Сканирую код, но почему-то событие (точнее его обработчик)

Private Sub MyComm_OnComm()
    RaiseEvent DataEvent(MyComm.Input)
End Sub

не срабатывает...
Хотя в окне Watch в переменной Input объекта MyComm находится значение штрих-кода, то есть данные поступили в буфер...
Почему событие не работает?