CollBack

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