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

Dim filePicker As Object
filePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
filePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE))
filePicker.appendFilter("テキストファイル(*.txt)", "*.txt")
filePicker.appendFilter("HTMLファイル(*.htm, *.html)", "*.htm;*.html")
filePicker.appendFilter("すべてのファイル(*.*)", "*.*")
If filePicker.execute() = 1 Then
    Dim loadFiles() As String
    loadFiles = filePicker.getFiles()
    Dim loadFileUrl As String
    loadFileUrl = loadFiles(0)
    Dim loadFilePath As String
    loadFilePath = ConvertFromURL(loadFileUrl)
    MsgBox(loadFilePath)
End If