Option Explicit
Public ID As String
Private pValues() As Variant

' Публичное свойство для чтения массива
Public Property Get Values() As Variant()
    Values = pValues
End Property

' Публичное свойство для записи массива
Public Property Let Values(ByRef arr() As Variant)
    pValues = arr
End Property 

Option ExplicitSub CreateErrorForReport(ByVal errID As String, ParamArray Fields() As Variant)    
  Dim err As New ReportError    
  err.ID = errID    
  err.Values = Fields 
End Sub
Sub Test()    
  CreateErrorForReport "01", 1, 2, 3, 4
End Sub