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