The problem with
Code:
Public Sub ModemCallWin95_98() 
     Dim WIN 
     WIN = Shell("rundll32.exe rnaui.dll,RnaDial " & "Connect Name", 1) 

End Sub
is that it only opens the Dial-Up box, it doesn't actually connect.

I'm looking for an actual connect.