Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Referencing Items in a Custom Collection
Sub CustomKey()
   Dim colSports As New Collection
   colSports.Add "Basketball", "B"
   colSports.Add "Skiing", "S1"
   colSports.Add "Skating", "S2"
   colSports.Add "Hockey", "H"
   Debug.Print colSports.Item("S1")
End Sub