CallBack

Private Sub StartConnection()
Dim X
X = Shell("rundll32.exe rnaui.dll,RnaDial " & _
Nome_Connessione, 1)
DoEvents
SendKeys "{enter}", True
DoEvents
End Sub

'Dove Nome_Connessione e il nome che avete dato alla vostra

'connessione di accesso remoto.