A função demonstrada abaixo permite abrirmos
através do Visual Basic uma conexão DIAL-UP

Private Sub AbrirDialUp(Conexão as String)
           Dim X
           X = Shell("C:\Windows\rundll32.exe rnaui.dll,RnaDial " & Conexão, 1)
           AppActivate X
           SendKeys "{enter}"
           DoEvents
End Sub

Para utilizar a função acima, coloque em seu programa uma linha como a seguinte:

call AbrirDialUp "IG"

Onde IG deve ser substituído pelo nome da conexão desejada.