XEName &amp; ".cRegistry",
       "Invalid parameter list passed to CreateAdditionalEXEAssociations -
       expected Name/Text/Command"
   Else
      ' Check if it exists:
      SectionKey = sClassName
      If Not (KeyExists) Then
         Err.Raise vbObjectError + 1048 + 26005, App.EXEName &amp; ".cRegistry",
          "Error - attempt to create additional associations before class
          defined."
      Else
         For iItem = 0 To iItems - 1 Step 3
            ValueType = REG_SZ
            Sectio