Автоинформатор (автопрозвонка) с помощью голосового модема ZyXel - VB

Всем доброго времени суток.
У меня следующая ситуация: имеется голосовой модем ZyXel и необходимо оповещать абонентов о какой-либо информации.
Я так полагаю нужно записать то что нужно в формате WAV. Это я сделал.
Написал часть проги для вызова абонента, звонок у меня проходит.
теперь не знаю как в проге написать, что как абонент поднимет трубку ему проиграется мелодия WAV. А когда проиграет сформирует сигнал занято.
Может кто занимался покажет исходник, желательно с пояснениями... Может еще какое-н. НОУ ХАУ подскажите
Заранее благодарен...
Вот часть моей проги:
Sub send_call()
Dim comm As New MSComm ' в референсах подключить mscomm32.ocx
If comm.PortOpen = False Then
comm.CommPort = 1 ' номер порта к которому подключен модем
comm.Settings = "9600,N,8,1"
comm.Handshaking = comNone
comm.InputLen = 0
comm.InBufferSize = 40
comm.OutBufferSize = 40
comm.RThreshold = 0
comm.PortOpen = True
End If
comm.Output = "ATD552208" & vbCrLf
End Sub