Array Als Rückgabewert aus Funktion

[for_ro]

Function Vergleich(byval A1 As Integer , A2 As Integer , A3 As Integer , A4 As Integer)
Vergleich(1) = A1

Ein Index beim Rückgabewert geht sowieso nicht.
Auf diese Art kannst du kein Array zurückgeben. Du kannst aber das Array übergeben und dann direkt dort hineinschreiben:

Dummy = Vergleich(aus1 , Aus2 , Aus3 , Aus4 , Rueck(1))

Function Vergleich(byval A1 As Integer , A2 As Integer , A3 As Integer , A4 As Integer , Rueckgabe As Integer)
Rueckgabe(1) = A1
Rueckgabe(2) = A2
Rueckgabe(3) = A3
Rueckgabe(4) = A4
End Function