a) Du verwendest nicht den Standard-filepicker zur Dateiauswahl (damit umgehst Du Fehleingaben)
b) Du hast ein control-Objekt in der Variablen datei, nicht den Wert der Eingabe im Kontrollobjekt, welches Du ausgeben möchtest.
Sub Datei_laden
fName = FileOpenDialog ("bitte die entsprechende Datei wählen")
print "ausgewählte Dtei: "+fName
End Sub
function FileOpenDialog(title as String) as String
filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
filepicker.Title = title
filepicker.execute()
files = filepicker.getFiles()
FileOpenDialog=files(0)
End function