'Get Sage 100 Premium Path from Windows Registry
Set oReg = GetObject(""winmgmts:\\.\root\default:StdRegProv"")
oReg.GetExpandedStringValue HKEY_CURRENT_USER,""SOFTWARE\Sage Software\MAS 90 Business Desktop\Settings"",""MAS90RootDirectory"",PathRoot
PathHome = PathRoot & ""\Home""
Set oReg = Nothing