Connect to the Net automatically using Dialup

I would like to write an application to connect to the net without the dial up dialog box popping up
I do not want to use this code given below as this would pop up the dialup dialog box

<pre>Option Explicit
Private Declare Function RnaDial Lib "rnaui.dll" (sConnectionString As String)

Private Sub Command1_Click()
Dim res
' enter connection name into text box
res = Shell("rundll32.exe rnaui.dll,RnaDial " & Text1.Text, 1)
End Sub

</pre>