Ищу пример работы с com портом - VB

Формулировка задачи:

Здравствуйте. Возникла необходимость написать приложение для работы с ком-портом. Нужно: дозвониться по номеру телефона из списка, подождать ответа, если ответ на звонок есть то воспроизвести аудиофайл, положить трубку и набрать следующий номер из списка. Вся проблема в том, что я никогда раньше не работал с ком-портами. Есть ли какой нибудь пример (исходник) работы с MSComm или через API? Команды АТ я для мадема нашел. Пака разбираюсь. Буду благодарен любому наставлению на путь истиный.

Решение задачи: «Ищу пример работы с com портом»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        'Couldn't make the call.
        'Take appropriate action
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "123456", "TheName"
End Sub