Dim A As New TreeNode
            MsgBox(A.Nodes(15).Text)
            MsgBox(A.Nodes("WTF").Text)

        MsgBox(Responses("ASL").Text)

Public Class Responses
    Private _responses As Microsoft.VisualBasic.Collection

    Public Sub New()
        Me._responses = New Microsoft.VisualBasic.Collection
    End Sub

    Default Public ReadOnly Property Item(ByVal Key As String) As String
        ' You can define the default type for this property
        ' Only readonly as per default of Collection.Item
        Get
            'You need to cast it if you have turn on Strict Mode
            Return CType(Me._responses(Key), String)
        End Get
    End Property

    ' This is to ease the adding function
    ' In case you have a different type you want to store
    Public Sub Add(ByVal Value As String, ByVal Key As String)
        Me._responses.Add(Value, Key)
    End Sub
End Class

        Dim a As Responses = New Responses
        a.Add("testing", "key1")
        MsgBox(a("key1"))

Imports System.Collections

Public Class ResponsesCollection
    Inherits CollectionBase

End Class

Imports System.Collections

Public Class ResponsesCollection
     Inherits CollectionBase

        Public Sub Add ( value As Object )
        
            List.Add ( value )

        End Sub

        ' AddRange
        Public Sub AddRange( value[] As Object )
        
            ' Add items
            ForEach vItem As Object in value
                Add( vItem )

        End Sub

        ' Remove
        Public Sub Remove( value As Object )
        
            ' Remove item
            List.Remove( value )

        End Sub

        ' RemoveAt
        Public Sub RemoveAt( index As Integer )
        

            ' If index is out of bounds - throw exception
            If index > Count - 1 Or index < 0
                Throw New ArgumentOutOfRangeException( "Index out of bounds." )

            ' If all is fine, remove item at specified index
            List.RemoveAt( index )

        End Sub

        ' Clear
        Public Sub Clear()

            ' Clear List
            List.Clear()

        End Sub

        ' IndexOf
        Public Function IndexOf( value As Object ) As Integer
        

            Return List.IndexOf( value );

        End Function

        ' Item
        Public Function Item( index As Integer ) As Object

            ' If index is out of bounds - throw exception
            If index > Count - 1 Or index < 0
                Throw New ArgumentOutOfRangeException( "Index out of bounds." )

            Return CType( List(index), Object)
            
        End Function

        ' Insert
        Public Sub Insert( index As Integer, value As Object )

            List.Insert( index, value )

        End Sub

        ' Contains
        Public Function Contains( value As Object ) As Boolean

            Return List.Contains( value );

        End Function

End Class

Public Class Responses

    Public Item As ResponsesCollection

    ........
    ...........
    ' Constructor
    Public Sub New

    ' Other constructor code
    ......
    ' Instantiate Collection
    Item = New ResponsesCollection

    ....

    End Sub

End Class