Este ejemplo lo encontre en una web no lo he probado pero segun la explicacion que le acompañaba hacia lo que pedis espero te sirva.
Private Sub Form_Load()
Dim AbrirConexion As Long
AbrirConexion = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConexiónInternet", 1)
SendKeys "{ENTER}"
End Sub