Data Type VisualBasic Script

Sub NewCollection()
   Dim colSports As New Collection
   colSports.Add "Basketball"
   colSports.Add "Skiing"
   colSports.Add "Skating", Before:=1
   colSports.Add "Hockey", After:=2
 End Sub