Public Sub Main()
Dim siCount As Short
Dim cCollection As Collection = ["0": "zero", "1": "one", "2": "two", "3": "three", "4": "four",
                                 "5": "five", "6": "six", "7": "seven", "8": "eight", "9": "nine"]

For siCount = 0 To 9
  Print cCollection[Str(siCount)]
Next

End