EXECUTAR CONEXAO DIAL-UP EM WIN 98/2000/XP

--------------------------------------------------------------------------------
Use o código a seguir para chamar uma conexão DialUp previamente criada no seu computador.

Primeiro crie a rotina ChamarDialUp e depois coloque num evento de sua preferência a chamada a esta rotina. 

Private Sub ChamarDialUp(ByVal sConect As String)
  Dim X As Long
  X = Shell("C:\Windowsundll32.exe rnaui.dll,RnaDial " & _
            sConect, 1)
  AppActivate X
  SendKeys "{enter}"
  DoEvents
End Sub

'No evento que você desejar:
  Call ChamarDialUp("Minha Conexão")
Substitua "Minha Conexão" pelo nome da conexão que você deseja ativar.

Detalhe: Esta conexão deve existir em seu computador.