LibreOfficeのVBでファイルの保存ダイアログを表示する

Dim filePicker As Object
filePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
filePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE))
filePicker.appendFilter("テキストファイル(*.txt)", "*.txt")
If filePicker.execute() = 1 Then
    Dim saveFiles() As String
    saveFiles = filePicker.getFiles()
    Dim saveFileUrl As String
    saveFileUrl = saveFiles(0)
    Dim saveFilePath As String
    saveFilePath = ConvertFromURL(saveFileUrl)
    MsgBox(saveFilePath) 'Windowsだと拡張子付いてないかも
End If