Here is couple example:

Public Sub ModemCallWin95_98()

Dim WIN
WIN = Shell("rundll32.exe rnaui.dll,RnaDial " & "Connect_Name", 1)

End Sub

Public Sub ModemCallWinNT()

Dim NT
NT = Shell("rasphone.exe [-d Connect_Name]", 1)

End Sub

Or if you want using API, look here:
http://www.totalenviro.com/PlatformVB

And if you want using ActiveX control, look here:
http://www.catalyst.com/
And download here free SocketWrench package.

- Dj4