Ejecutar una conexión del Acceso Telefónico a Redes

Dim res As Long
res = Shell("rundll32.exe rnaui.dll,RnaDial " & "MiConexión", 1)

Página de Visual Basic

Página principal