Option Explicit



Public Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" ( _

   ByVal Dest As String, _

   ByVal AppName As String, _

   ByVal CalledParty As String, _

   ByVal Comment As String) As Long



Sub PhoneCall()

Dim strNumber As String

Dim strName As String

Dim lRetVal As Long



strNumber = "09 2751179"

strName = "Work"



'// Make a voice call using the default call manager application

lRetVal = tapiRequestMakeCall(Trim(strNumber), vbNull, Trim(strName), "")



'// Let the call manager application handle the errors!

End Sub