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

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

Option Explicit
DefInt A-Z
Dim CancelFlag As Boolean
Private Sub CancelButton_Click()
CancelFlag = True
CancelButton.Enabled = False
End Sub
Private Sub DialButton_Click()
Dim Number$
On Error GoTo Err_click
'Number$ = Selection.Value
Number$ = "411055"
If Number$ = "" And Not IsNumeric(Number$) Then Exit Sub
DialButton.Enabled = False
CancelButton.Enabled = True
Status = "Dialing — " + Number$
Dial Number$
DialButton.Enabled = True
CancelButton.Enabled = False
Err_click:
End Sub
Private Sub Dial(Number$)
Dim DialString$, FromModem$, dummy
' AT is the Hayes compatible ATTENTION command and is required to send commands to the modem.
' DT means "Dial Tone." The Dial command uses touch tones, as opposed to pulse(DP = Dial Pulse).
' Numbers$ is the phone number being dialed.
' A semicolon tells the modem to return to command mode after dialing (important).
' A carriage return, vbCr, is required when sending commands to the modem.
DialString$ = "ATDP" + Number$ + ";" + vbCr
' Communications port settings.
' Assuming that a mouse is attached to COM1, CommPort is set to 2
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
' Open the communications port.
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
MsgBox "COM2: not available. Change the CommPort property to another port."
Exit Sub
End If
' Flush the input buffer.
MSComm1.InBufferCount = 0
' Dial the number.
MSComm1.Output = DialString$
' Wait for "OK" to come back from the modem.
Do
dummy = DoEvents()
DoEvents
' If there is data in the buffer, then read it.
If MSComm1.InBufferCount Then
FromModem$ = FromModem$ + MSComm1.Input
' Check for "OK".
If InStr(FromModem$, "OK") Then
' Notify the user to pick up the phone.
Beep
MsgBox "Please pick up the phone and either press Enter or click OK"
Exit Do
' Status = "Dialing — " + FromModem$ + " — " + Number$
ElseIf InStr(FromModem$, "BUSY") Then
Disconnect
Call Dial(Number$)
Exit Sub
ElseIf InStr(FromModem$, "Error") Then
MsgBox "Error " + FromModem$
Exit Do
End If
End If
' Did the user choose Cancel?
If CancelFlag Then
CancelFlag = False
Exit Do
End If
Loop
Disconnect
 
End Sub
'Private Sub DialButton_GotFocus()
'Cells(Selection.Row, Selection.Column).Select
'End Sub
Private Sub Status_Click()
On Error Resume Next
DialButton.Enabled = True
'QuitButton.Enabled = False
CancelButton.Enabled = True
' Disconnect the modem.
MSComm1.Output = "ATH" + vbCr
' Close the port.
MSComm1.PortOpen = False
End Sub
Public Sub Disconnect()
' Disconnect the modem.
MSComm1.Output = "ATH" + vbCr
' Close the port.
MSComm1.PortOpen = False
End Sub

MSComm1.CommPort = 7
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "ATDP" + " 8912.........22" + ";" + vbCr

Option Explicit
 
Private Type MMCKINFO
    ckid As Long
    ckSize As Long
    fccType As Long
    dwDataOffset As Long
    dwFlags As Long
End Type
Public Type WAVEFORMAT
    wFormatTag As Integer
    nChannels As Integer
    nSamplesPerSec As Long
    nAvgBytesPerSec As Long
    nBlockAlign As Integer
    wBitsPerSample As Integer
    cbSize As Integer
End Type
 
Private Declare Function mmioClose Lib "winmm.dll" (ByVal hmmio As Long, ByVal uFlags As Long) As Long
Private Declare Function mmioDescend Lib "winmm.dll" (ByVal hmmio As Long, lpck As MMCKINFO, lpckParent As Any, ByVal uFlags As Long) As Long
Private Declare Function mmioOpen Lib "winmm.dll" Alias "mmioOpenA" (ByVal szFileName As String, lpmmioinfo As Any, ByVal dwOpenFlags As Long) As Long
Private Declare Function mmioRead Lib "winmm.dll" (ByVal hmmio As Long, pch As Any, ByVal cch As Long) As Long
Private Declare Function mmioStringToFOURCC Lib "winmm.dll" Alias "mmioStringToFOURCCA" (ByVal sz As String, ByVal uFlags As Long) As Long
Private Declare Function mmioAscend Lib "winmm.dll" (ByVal hmmio As Long, lpck As MMCKINFO, ByVal uFlags As Long) As Long
 
Private Const MMIO_READ = &H0
Private Const MMIO_FINDCHUNK = &H10
Private Const MMIO_FINDRIFF = &H20
 
Public Format As WAVEFORMAT             ' Формат файла
Public WaveData() As Integer            ' Данные звукового файла
Public Offset As Long                   ' Смещение данных относительно начала файла
' Открытие Wav файла
Public Function ReadWaveFile(FileName As String) As Boolean
    Dim hIn As Long, ret As Long, Inf As MMCKINFO, sInf As MMCKINFO, ct As Long
    
    hIn = mmioOpen(FileName, ByVal 0, MMIO_READ)            ' Открываем файл
    If (hIn = 0) Then MsgBox "Ошибка открытия файла": Exit Function
 
    Inf.fccType = mmioStringToFOURCC("WAVE", 0)             ' Проверка является ли вав файлом
    If mmioDescend(hIn, Inf, ByVal 0, MMIO_FINDRIFF) Then _
        mmioClose hIn, 0: MsgBox "Не являеться звуковым файлом": Exit Function
    sInf.ckid = mmioStringToFOURCC("fmt", 0)                 ' Ишем чанк с форматом
    If mmioDescend(hIn, sInf, Inf, MMIO_FINDCHUNK) Then _
        mmioClose hIn, 0: MsgBox "Не найден чанк с форматом": Exit Function
    ' Проверяем размер формата
    If sInf.ckSize > Len(Format) Then _
        mmioClose hIn, 0: MsgBox "Не поддерживаемый формат": Exit Function
    ' Читаем формат
    If mmioRead(hIn, Format, sInf.ckSize) = -1 Then _
        mmioClose hIn, 0: MsgBox "Не возможно прочитать формат": Exit Function
        
    mmioAscend hIn, sInf, 0
    
    If Format.wBitsPerSample <> 16 Then _
        mmioClose hIn, 0: MsgBox "Поддерживается только 16 бит на семпл": Exit Function
    ' Ищем чанк с данными
    sInf.ckid = mmioStringToFOURCC("data", 0)
    If mmioDescend(hIn, sInf, Inf, MMIO_FINDCHUNK) Then _
        mmioClose hIn, 0: MsgBox "Не найдены данные в вав файле ": Exit Function
    
    ct = sInf.ckSize \ 2        ' Получаем количество выборок
    If ct = 0 Then mmioClose hIn, 0: MsgBox "Нулевой размер файла": Exit Function
    
    ReDim WaveData(ct - 1)      ' Выделяем буфер
    
    Offset = sInf.dwDataOffset  ' Указываем смещение
    
    If mmioRead(hIn, WaveData(0), sInf.ckSize) = -1 Then _
        mmioClose hIn, 0: MsgBox "Не возможно прочитать данные": Exit Function
        
    mmioClose hIn, 0                                        ' Закрываем файл
    
    ReadWaveFile = True
End Function

Dim MyFile 
 
Dim usr As String * 1 
 MyFile = FreeFile 
 
Open ("C:mybf.txt") For Binary As #MyFile 
 
Get #MyFile, 320, usr 
 
Close #MyFile

Private Sub InitVoice()
    With MsComm1
    .Output = "AT+FCLASS=8" & vbCr 'Переход в Voice режим
    .Output = "AT+VSM=130,8000,0,0" & vbCr '130 - номер кодека, 8000 Hz
    .Output = "AT+VSD=128,50" & vbCr '128 и 50 
    .Output = "AT+VLS=1" & vbCr 'инит . . .
    .Output = "AT+VTX = c:\modem\test.wav" & vbCr 'где "c:\modem\test.wav" - это мой wave файлик.
    End With
  End Sub