Suponiendo que el número en cuestión lo cargaramos en Text1 desde nuestra base de datos:
Código:
’Esto va en un Modulo:
Public Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAddress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Sub Command1_Click()
Dim llamar As Long
Dim Telefono As String
Telefono = Text1.Text
llamar = tapiRequestMakeCall&(Telefono, "", "", "")
End Sub