LibreOfficeのVBで連想配列を使用する

GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
Dim dictionary as Object
dictionary = CreateScriptService("Dictionary")
dictionary.Add("test1", 123)
dictionary.Add("test2", 456)
Print(dictionary.Exists("test1"))
dictionary.Remove("test2")
Print(dictionary.Exists("test2"))
For Each key in dictionary.Keys
    Print(key)
    Print(dictionary.Item(key))
Next
Print(dictionary.Count)