CodeItBetter Programming Another VB Programming Blog

'Miscellaneous - How to dial a phone number from your VB app
Declare Function tapiRequestMakeCall Lib "tapi32.dll" (ByVal stNumber As String, _
    ByVal stDummy1 As String, ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
 
'Following function receives a phone number to dial.
Function DialNumber(PhoneNumber)
    Dim Msg As String
    Dim RetVal As Long
 
    ' Send the telephone number to the modem.
    RetVal = tapiRequestMakeCall(PhoneNumber, "", "", "")
    If RetVal < 0 Then
        Msg = "Unable to dial number " & PhoneNumber
    End If
End Function