Serialize and Deserialize IEnumerable Objects

Namespace Profile
    Public Class Questions
        Inherits System.Collections.CollectionBase

        Public Sub Add(ByVal value As Question)
            MyBase.List.Add(value)
        End Sub

        Default Public ReadOnly Property Item(ByVal Index As Integer) As Question
            Get
                Return CType(MyBase.List.Item(Index), Question)
            End Get
        End Property

        Default Public ReadOnly Property Item(ByVal Identifier As String) As Question
            Get
                For Each _Item As Question In Me
                    If String.Compare(_Item.Identifier.ToString, Identifier, True) = 0 Then
                        Return _Item
                    End If
                Next

                Return Nothing
            End Get
        End Property
    End Class
End Namespace