sorry, aber irgendwie sehe ich den Wald vort lauter Bäumen wohl nicht

Ich kriege das folgende simple Makro einfach nicht zum Laufen:
Code: Alles auswählen
Sub MyFirstMakro
MsgBox _
"Vor Öffnen des File Dialogs" _
, 48 , "MyFirstMakro v.0.0.1"
DialogOpen=createunoservice("com.sun.star.ui.dialogs.FilePicker")
DialogOpen.title = "Datei auswählen"
DialogOpen.displaydirectory = "c:\"
Ausgabe = DialogOpen.execute
if Ausgabe = 0 Then
msgbox "Es wurde keine Datei ausgewählt!"
End if
End Sub
Viele Grüße,
Jim