NOTA: Tienes que reemplazar NombreDeConexion por el nombre que tenga la conexión de Acceso Telefónico a Redes.
Dim Res As Long
Res = Shell("rundll32.exe rnaui.dll , RnaDial " & "NombreDeConexion", 1)
SendKeys "{ENTER}"
Posted
jue, ene 4 2001 22:49
by
Maverick