Пользовательский тип данных в качестве возвращаемого значения свойством

Public Property Get Item(ByVal Index As Long) As StdModule.TypeOfCollection
    Select Case mlngPositionInCollection
        Case Is = 0
            VBA.Information.Err.Raise conErrCollectionIsEmpty, "clsCollection", _
                "Êîëëåêöèÿ íå ñîäåðæèò ýëåìåíòîâ."
        Case Is < Index - 1
            VBA.Information.Err.Raise conErrIndexDoesntExist, "clsCollection", _
                "Èíäåêñ âíå äèàïîçîíà."
    End Select
    If Index <= 0 Then VBA.Information.Err.Raise conErrIndexDoesntExist, "clsCollection", _
        "Èíäåêñ âíå äèàïîçîíà."
    Item.TextBoxName = mudtArrayOfData(Index - 1).TextBoxName
    Item.TextColor = mudtArrayOfData(Index - 1).TextColor
End Property

Public Type TypeOfCollection
    TextBoxName As VB.TextBox
    TextColor As Long
End Type

Friend Property Get Item(ByVal Index As Long) As StdModule.TypeOfCollection