'Sub Routine For Checking The Status Of An MSI Installation
Sub MSI_Status()
 Select Case MSI_Code
  Case 0
       MSI_State = "Success"
         Case 13
              MSI_State = "The Data Is Invalid"
         Case 87
              MSI_State = "One Of The Parameters Was Invalid"
         Case 1601
              MSI_State = "Installer Service Could Not Be Accessed"
         Case 1602
              MSI_State = "User Cancelled Installation"
         Case 1603
              MSI_State = "Fatal Error During Installation"
         Case 1604
              MSI_State = "Installation Suspended, Incomplete"
         Case 1605
              MSI_State = "This Action Is Invalid for Products That Are Currently Installed"
         Case 1606
              MSI_State = "Feature ID Not Recognised"
         Case 1607
              MSI_State = "Component ID Not Registered"
         Case 1608
              MSI_State = "Unknown Property"
         Case 1609
              MSI_State = "Handle Is An Invalid State"
         Case 1610
              MSI_State = "The Configuration Data For This Product is Corrupt"
         Case 1611
              MSI_State = "Component Qualifier Not Present"
         Case 1612
              MSI_State = "The Installation Source For This Product Is Not Available"
         Case 1613
              MSI_State = "Windows Installer Service is The Wrong Version"
         Case 1614
              MSI_State = "Product Is Uninstalled"
         Case 1615
              MSI_State = "SQL Query Syntax Invalid or Not Supported"
         Case 1616
              MSI_State = "Record Field Does Not Exist"
         Case 1618
              MSI_State = "Another Installation Is Already In Progress"
         Case 1619
              MSI_State = "Installation Package Could Not Be Opened.  Verify The Package Exists"
         Case 1620
              MSI_State = "Installation Package Could Not Be Opened.  Verify This Is A Valid Windows Installer Package"
         Case 1621
              MSI_State = "Error Starting The Windows Installer Service User Interface"
         Case 1622
              MSI_State = "Error Opening Installation Log File"
         Case 1623
              MSI_State = "The Language Of This Installation Package Is Not Supported By Your System"
         Case 1624
              MSI_State = "Error Applying Transforms.  Verify That The Paths Are Valid"
         Case 1625
              MSI_State = "This Installation Is Forbidden By System Policy"
         Case 1626
              MSI_State = "Function Could Not Be Executed"
         Case 1627
              MSI_State = "Function Failed During Execution"
         Case 1628
              MSI_State = "Invalid Or Unknown Table Specified"
         Case 1629
              MSI_State = "Data Supplied Is Of Wrong Type"
         Case 1630
              MSI_State = "Data Of This Type Is Not Supported"
         Case 1631
              MSI_State = "The Windows Installer Service Failed To Start"
         Case 1632
              MSI_State = "The Temp Folder Is Either Full Or Inaccessible"
         Case 1633
              MSI_State = "This Installation Package Is Not Supported On This Platform"
         Case 1634
              MSI_State = "Component Not Used On This Machine"
         Case 1635
              MSI_State = "This Package Could Not Be Opened.  Verify The Package Exists And You Have Rights To It"
         Case 1636
              MSI_State = "This Patch Package Could Not Be Opened"
         Case 1637
              MSI_State = "This Package Cannot Be Processed By The Windows Installer Service."
         Case 1638
              MSI_State = "Another Version Of This Product Is Already Installed"
         Case 1639
              MSI_State = "Invalid Command Line Arguement"
         Case 1640
              MSI_State = "Installation From ATerminal Server Client Session Is Not Permitted"
         Case 1641
              MSI_State = "The Instller Has Started A Reboot"
         Case 1642
              MSI_State = "The Installer Cannot Install The Patch Because The Program Being Upgraded Is Missing"
         Case 3010
              MSI_State = "A Restart Is Required to Complete The Installation"
         Case Else
              MSI_State = "Unknown MSI Status Code Reported"
 End Select
End Sub