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:
The follow line of code is calling this function:
Set eExtract = Extracts.GetExtractModel(eExtractEnum)
Code:
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)