Lanciare una Connessione di Accesso Remoto

Richiamare questa routine comunicandole il nome della Connessione di Accesso Remoto a cui si deve collegare.
Per esempio: 

ConnettiA "Tiscalinet"

'************************************************
'NomeConnessione = Connessione di Accesso Remoto a cui connettersi
'************************************************
Public Sub ConnettiA(NomeConnessione As String)
Dim rtn As Long
rtn = Shell("RUNDLL32.EXE rnaui.dll,RnaDial " & NomeConnessione, vbHide)
SendKeys "{ENTER}", True 'Preme invio ed avvia la connessione
End Sub

Testato su: Windows 98, Windows Me