Sub ModemDialog() ' Launch Windows Modem Properties Dialog Dim dblReturn As Double dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 5) End Sub