Listbox als Parameter

Könnte mir bitte Jemand mal auf die Sprünge helfen ?

Ich möchte eine Listbox (aus Userform) an eine normale Sub übergeben.
Das folgende Konstrukt scheitert beim Aufruf:
Dim FoundPosition as long

FoundPosition = lbSelPosition(lbÜbersicht)
...
...

Function lbSelPosition(lb as Listbox) as long
...
...

Danke im voraus
MAlexander