LibreOfficeのVBでCollectionを使用する

Dim collection as Object
collection = new Collection
collection.Add("test1")
collection.Add("test2")
Print(collection.Count)
Print(collection.Item(1)) 'インデックスは1から
collection.Remove(1)
For Each value In collection
    Print(value)
Next value