Hallo

Wie schaffe ich es das ich als Rückgabewert einer Funktion ein Array bekommen?

Code:
Dim Rueck(4) As Integer

Rueck = Vergleich(aus1 , Aus2 , Aus3 , Aus3) 

function Vergelich(byval A1 As Integer , A2 As Integer , A3 As Integer , A4 As Integer)
Vergleich(1) = A1
Vergleich(2) = A2
Vergelich(3) = A3
Vergleich(4) = A4

end function
Dabei kommt der Fehler: Array expected[Rueck]