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