ion

EnumerateSectionsError:
   If (hKey &lt;&gt; 0) Then
      RegCloseKey hKey
   End If
   Err.Raise vbObjectError + 1048 + 26002, App.EXEName &amp; ".cRegistry",
    Err.Description
   Exit Function
End Function
Private Sub pSetClassValue(ByVal sValue As String)
Dim sSection As String
   ClassKey = HKEY_CLASSES_ROOT
   Value = sValue
   sSection = SectionKey
   ClassKey = HKEY_LOCAL_MACHINE
   SectionKey = "SOFTWARE\Classes\" &amp; sSection
   Value = sValue
   SectionKey = sSection
End Sub
Public Sub C