User Defined type in Class Function

[VB IT]

Originally posted by rlwhealdon
Try changing

Public Function TestType(ByVal TypeIN() As Variant) 'In Module
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function

I Get The Error
Type Mismach Array or user Defined Type Expected