Yes

Sub Main()
Dim dbl_Return As Double

'PURPOSE: Launch Windows Add/Remove Programs Dialog
'dbl_Return = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", 5)

'PURPOSE: Launch Windows Keyboard Properties Dialog
dbl_Return = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 5)
End Sub