Звонок с мобильного телефона или SIP софтфона EyeBeam из Excel

Sub ПримерКодаДляЗвонкаИзExcel()
    ' макрос запустит программу EyeBeam, и наберёт указанный номер
    CallWithEyeBeam "8-912-3456789"
End Sub

Function eyeBeamPath() As String    ' возвращает путь к файлу eyeBeam.exe
    ' проверяем наличие файла в папке «по-умолчанию»
    eyeBeamPath = Environ("ProgramFiles") & "\CounterPath\eyeBeam 1.5\eyeBeam.exe"
    If Dir(eyeBeamPath, vbNormal) = "" Then eyeBeamPath = "" Else Exit Function
    On Error Resume Next    ' читаем путь к папке в реестре, и ищем файл eyeBeam.exe
    key$ = "HKEY_CURRENT_USER\Software\CounterPath\RegNow Enhanced\WorkingFolder"
    eyeBeamFolder$ = CreateObject("WScript.Shell").RegRead(key$)
    eyeBeamFile$ = Dir(eyeBeamFolder$ & "\*eyeBeam*.exe", vbNormal)
    If eyeBeamFile$ <> "" Then eyeBeamPath = eyeBeamFolder$ & "\" & eyeBeamFile$
End Function
 
Sub CallWithEyeBeam(ByVal phoneNumber$)
    ' макрос проиводит вызов номера phoneNumber$ в программе eyeBeam (SIP телефония)
    On Error Resume Next: filePath$ = eyeBeamPath
    If filePath$ = "" Then
        msg = "Не найден файл программы eyeBeam.exe"
        MsgBox msg, vbCritical, "Невозможно выполнить звонок": Exit Sub
    End If
    cmd$ = """" & filePath$ & """ -dial=""" & phoneNumber$ & """"
    res = Shell(cmd$)
End Sub

Sub ПозвонитьНаНомерИзВыделеннойЯчейкиExcel()
    ' макрос запустит программу EyeBeam, и наберёт номер из ячейки
    CallWithEyeBeam Trim(ActiveCell)
End Sub

Sub ПозвонитьНаНомерИзВыделеннойЯчейкиExcel()
    ' макрос запустит программу EyeBeam, и наберёт номер из ячейки
    CallWithEyeBeam SIPnumber(ActiveCell)
End Sub
 
Function SIPnumber(ByVal txt$) As String
    ' функция берет из текста txt$ первый попавшийся номер телефона,
    ' и возвращает его, удаляя лишние символы
    ' Например, из текста «c/o +371-7-500431, 500432» получаем номер «8-10-371-7-500431»
    Application.Volatile True
    txt = Split(txt, ",")(0): txt = Split(txt, ";")(0)
    txt = Replace(txt, "c/o", ""): txt = Replace(txt, " ", "")
    txt = Replace(txt, "+7", "8-"): txt = Replace(txt, "+", "8-10-")
    txt = Replace(txt, "--", "-"): If Len(txt) < 3 Then txt = ""
    SIPnumber = txt
End Function