PhoneDialer

Option Explicit
Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" _
(ByVal DestAdress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Sub ChooseNumber(strNumber As String, strAppName As String, strName As String)
Dim lngResult As Long
Dim strBuffer As String

lngResult = tapiRequestMakeCall&(strNumber, strAppName, strName, "")
If lngResult <> 0 Then 'error
strBuffer = "Error connecting to number: "
Select Case lngResult
Case -2&
strBuffer = strBuffer & " 'PhoneDailer not installed?"
Case -3&
strBuffer = strBuffer & "Error : " & CStr(lngResult) & "."
End Select

MsgBox strBuffer
End If

End Sub

Private Sub Command1_Click()
Call ChooseNumber(Text1(0).Text, "PhoneDialer", Text1(1).Text)

End Sub

Private Sub Form_Load()
Text1(0).Text = ""
Text1(1).Text = ""

End Sub

Private Sub Form_Unload(Cancel As Integer)
End

End Sub