Data Type VisualBasic Script

Sub AddToCollection()
    Dim colNames As Collection
    Set colNames = New Collection
    colNames.Add "A", "B"
    colNames.Add "C", "D"
    colNames.Add "E", "F"
    colNames.Add "G", "H"
    colNames.Add "I", "J"
    colNames.Add "K", "ZL"
End Sub