listbox an function übergeben

Function openfile_pro(feld As String, listbox_a As listbox, fehler As Integer, exit_fun As Integer, meldung As String) As integer

listbox_a.AddItem feld

End Function

die ich wie folgt aufrufen möchte:

resultat = openfile_pro(Range("a6"), userform1.listbox1, 1, 1, "Falsche Eingabe")

nun bekomme ich aber eine fehlermeldung bezüglich der übergabe vom userform1.listbox1. ich möchte der funktion übergeben, welche listbox behandelt werden soll.

kann man das überhaupt und ist mein ansatz grundsätzlich richtig?

vielen dank schon im voraus

Simon