Crear un acceso directo de una conexión telefonica a redes
Sacado de la Web del Guille:
http://guille.costasol.net/utilidades/queryReg/QueryReg2.htm#AccesoTelefonico

Morgan da otra solucion:
    Dim AbroConexion As Long

    AbroConexion = Shell("rundll32.exe rnaui.dll,RnaDial " & "Prodigy")
    DoEvents

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)