SoloCodigo

la sintaxis de la funcion es :

OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)

un ejemplo:

DoCmd.OpenReport "I_Envios_Recibidos", acViewPreview, , crit

proba con
    Dim comando As String
   comando = Shell("shutdown -r")


reemplaza el comando por el que necesites.

no puedo ayudarte mucho sin ver el codigo del programa, lo que puedo decirte es que intentes con otros sistemas de identificaion de llamadas, hay muchisimos que te seran de ayuda como por ejemplo:

Active Phone Server

Advanced Call Center

Call Soft

aunque no estoy seguro de que se trate de un sistema de identificacion de llamadas comunes como vienen estos "empaquetados"

una posible respuesta podria ser la siguiente:

'Código para transmitir
Dim FileName As String: FileName = "C:\BinFiles\Test.Exe"
Dim Offset As Long
Dim FileData As Byte
Open FileName For Binary Access Read As #1
For Offset = 1 To FileLen(FileName)
Get #1, Offset, FileData
MSComm1.Output = Chr$(FileData)
Next Offset
Close #1
'Código para recibir
'Se asume que File #1 ya ha sido abierto en alguna parte del código y
'que ByteCount ha sido declarado como Long e inicializado a 0.
Private Sub MSComm1_OnComm()
Dim TmpStr As String
Dim StrLen As Long, I As Long
Dim FileData As Byte
If MSComm1.CommEvent = comEvReceive Then
While MSComm1.InBufferCount > 0
TmpStr = MSComm1.Input
StrLen = Len(TmpStr)
For I = 1 To StrLen
FileData = CByte(Asc(Mid(TmpStr, I, 1)))
ByteCount = ByteCount + 1
Put #1, ByteCount, FileData
Next I
TmpStr = ""
Wend
End If
End Sub


para mas informacion visita Este enlace