Private Sub Form_Load()
  Shell "C:\WINDOWS\system32\rasphone.exe"
End Sub

Private Sub Timer1_Timer()
 On Error GoTo error:
 App.Activate("Conexiones de red")
 SendKeys "{enter}"

error:
End Sub

Private Sub mnuWeb_Click()
    ThisApp = <"Title of App>
    ThisVer = <"Version of App">
    Dim iRet As Long

...


    Dim response As Integer
    response = MsgBox("You have chosen 'Visit Website', which will launch_
    your Browser and take you to Southern Cross web site." & vbCrLf & "" &_
vbCrLf & "Do you wish to continue?", 4, ThisApp & ThisVer)
    Select Case response

    ' Yes response.
      Case vbYes:
        iRet = ShellExecute(Me.hwnd, vbNullString,_
"http://www.geocities.com/CapeCanaveral/6740/index.html", vbNullString,_
"c:", SW_SHOWNORMAL)
    ' No response.
      Case vbNo:
        Exit Sub
    End Select

End Sub

Private Sub Form_Load() 
 Dim AbrirConexion As Long 
 AbrirConexion = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConexiónInternet", 1) 
 SendKeys "{ENTER}" 
End Sub