I found this code, tho its not working for me right now, it did work 100% (otherwise i wouldnt document it, i guess its coz i use cable connection right now). "Internet Zahav" is the connection name, and here is the code :

Private Sub Form_Load()
taskID = Shell("rundll.exe rnaui.dll,RnaDial " & "Internet Zahav", 1)


DoEvents ' Wait until RAS-window is shown
Timer1 = True
End Sub

Private Sub Timer1_Timer()
SendKeys "Hello", True ' Press "Return" = "Connect"
SendKeys "{ENTER}", True ' Press "Return" = "Connect"
Timer1 = False
End Sub

'I hope it will help you