Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCol As New Collection
  oCol.Add "one"
  oCol.Add "two"
  oCol.Add "three"
  MsgBox oCol.Count
End Sub