Data Type VisualBasic Script

Sub AccessCollection()
    Dim colNames As Collection
    Set colNames = New Collection
    colNames.Add "A", "A"
    colNames.Add "Dan", "Dan"
    colNames.Add "Al", "Ale"
    colNames.Add "B", "Bre"
    colNames.Add "S", "Son"
    colNames.Add "Sue", "Su"
    Set colNames = New Collection
    'Or Set colNames = Nothing
End Sub