Import Impressfile to Impress with macro

i’m missing something. i like to import a impress file to another impressfile with a macro. With my code LO crashes. there shoud be just two arguments: https://wiki.documentfoundation.org/Development/DispatchCommands#Draw_.2F_Impress but it keeps crashing. Has someone an idea?


sub importer
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"  
args1(0).Value = "/pathtofile/test.odp"
args1(1).Name = "FilterName"   
args1(1).Value = "StarOffice XML (Impress)"

dispatcher.executeDispatch(document, ".uno:ImportFromFile", "", 0,args1())

end sub