MSComm, понять что дозвонились

[moshkin]

Пытаемся с помощью элемента MSComm звонить и нужно отловить событие что на том конце сняли трубку (или занято).
Поиск по форуму пока не очень помог.
Набрать номер просто:

Private Sub Command1_Click()
MSComm1.Output = "ATDÒ" & CStr(Text1.Text) & Chr$(13)
End Sub

Событие OnComm не происходит, то есть в процедуру
Private Sub MSComm1_OnComm()
заходим только при запуске программы.
Пытались в таймере ловить содержимое буфера:

Private Sub Timer1_Timer()
Text3.Text = Text3.Text & MSComm1.Input & Chr(13)
End Sub

Но там или пусто или когда трубка уже кладется появляется "занято".
MSComm1.CommEvent дает все время "3"(clear to send).
Что надо делать чтобы ловить события занято, подняли трубку, и прочие (если они есть?, а они должны быть).
Спасибо.

[ism]

После команды ATDP1234567, MSComm1.Input должно содержать OK(или ERROR). После чего нужно отправить (точно непомню) ATA и MSComm1.Input должно содержать BUSY, NO CARRIER или CONNECT и скорость.
Делать звонилку лутше через RAS.