[Run-time error '13': Type Mismatch] Returning New Custom Object

[trentt]

I had this working yesterday and earlier this morning so I'm not sure what changed. ConveyExtract and BillingValidationExtract are both custom objects I've created that both implement a class called Extract. I have the following line getting slapped with a Type Mismatch error:

Function GetExtractModel(eExtractEnum As ExtractEnums)
    Select Case eExtractEnum
    
    Case ExtractEnums.Convey
        Set GetExtractModel = New ConveyExtract
         
    Case ExtractEnums.BillingValidation
[COLOR=#ff0000][B]        Set GetExtractModel = New BillingValidationExtract[/B][/COLOR]
    
    End Select
    
End Function

The follow line of code is calling this function:

Set eExtract = Extracts.GetExtractModel(eExtractEnum)

 

[trentt]

Sorry for the double post, I can't seem to find the edit button.

I also get the same error if I do this:

Dim testy As BillingValidationExtract
Set testy = New BillingValidationExtract

 

[Norie]

Have you checked the code for the class/object BillingValidationExtract?

Perhaps it's something in there that's causing the error but isn't being highlighted because of your Error Trapping settings.

 

[trentt]

Have you checked the code for the class/object BillingValidationExtract?

Perhaps it's something in there that's causing the error but isn't being highlighted because of your Error Trapping settings.

I narrowed it down to this:

Private vHeaderRows() As Integer

Private Sub Class_Initialize()

[COLOR=#ff0000][B]vHeaderRows = Array(1, 2)[/B][/COLOR]
End Sub

I'm learning that initializing typed arrays is not anywhere near as simple in VBA as it is in other languages. Is there a concise way for me to assign integer values to vHeaderRows? I could go the quick way out and just make it variant instead of integer(), but then I lose my type safety. I would like to enforce that vHeaderRows can only receive integer values. Since all classes that implement Extract will need to have vHeaderRows assigned, and the length of the array could be variable, what's the best way for me to do that?

 

[Norie]

You can't assign directly to an array like that in VBA.

If you are insistent on having an array of integers rather than variant/integers you could try something like this,

Dim vHeaderRows() As Integer
Dim arr As Variant
Dim I As Long

    arr = Array(1, 2)
    
    ReDim vHeaderRows(LBound(arr) To UBound(arr))

    For I = LBound(arr) To UBound(arr)
        vHeaderRows(I) = arr(I)
    Next I