Set obj = CreateObject("Shell.Application") Set objFolder = obj.NameSpace( &h26 ) strPath = objFolder.Self.Path&"\Common Files\Microsoft Shared\IME12\IMEJP\IMJPUEX.EXE" obj.ShellExecute(strPath) Set obj = Nothing