title: Err.Raise() is ignoring custom description and source
body: <p>I have a class module with a Let function that raises a custom error an example is shown below</p>
  
  <pre><code>Private pValue As Double
  Public Property Let Value(v As Double)
      If v &lt; 0 Then
          Err.Raise vbObjectError + 1, "error source", "error description"
      Else
          pValue = v
      End If
  
  End Property
  </code></pre>
  
  <p>In another sub I call the class function on an object (Example) and raise the error by passing a value less than 0. In this same sub I have error handling set up to catch multiple errors based on the error numbers.</p>
  
  <pre><code>Sub TestSub()
  Dim Example As Test
  Set Example = New Test
  
  On Error GoTo errorHandler
  Example.Value = -1
  On Error GoTo 0
  
  Exit Sub
  
  errorHandler:
  MsgBox Err.Number &amp; "," &amp; Err.Description &amp; " in " &amp; Err.Source
  
  End Sub
  </code></pre>
  
  <p>The message box prints out the correct error number but the description is the generic Method ~ of object ~ failed, and the source is the generic VBAProject. I'd really like it to print out the error message I gave to Err.Raise. Does anyone know what the issue is here? I have error handling set to break on unhandled errors. </p>
  
  <p>The message displayed in the message box is:</p>
  
  <blockquote>
    <p>Method 'Value' of object '_Test' failed</p>
  </blockquote>
  
  <p><strong>Edit:</strong> Updated the code to a full scenario where the problem occurs</p>