Option Explicit Set ws = WScript.CreateObject("WScript.Shell") Dim ws, t, p1, n, cn, MyBox, Title Dim itemtype p1 = "HKCR\CLSID\{2559a1f0-21d7-11d4-bdaf-00c04f60b9f0}\" n = ws.RegRead(p1 & "LocalizedString") t = "Change the Name of Search on Start Menu" cn = InputBox("Type in the name to replace Search with.", t, n) If cn <> "" Then ws.RegWrite p1 & "LocalizedString", cn End If Title = "Search on the Start Menu has now been renamed." MyBox = MsgBox(Title,64,"Finished")