= "Subscript out of range."
      
   Case 7
      ' Failed to add a resource/out of memory
      lErrNum = 7
      sDesc = "Out of Memory."
      
   Case 8
      ' Header does not exist
      lErrNum = vbObjectError + 25003
      sDesc = "Header does not exist."
      
   Case 9
      ' can't set grouping
      lErrNum = vbObjectError + 25004
      sDesc = "Failed to set group enable state."
   
   Case 10
      lErrNum = vbObjectError + 25005
      sDesc = "SubItem does not exist."
      
   Case Else
  