Dim myShell

Set myShell = CreateObject("WScript.Shell")
myShell.Run("regsvr32 /n /i:U shell32")

Set myShell = Nothing

MsgBox "Toolbar Menu's have been restored.", 4096,"Finished"