VBA function Input und Putput Array

Hallo Zusammen,
ich verzweifel gerade hier ran:
ich moechte einen vba function ein eindimensionales Array uebergeben und der Output soll ein zweidimensionales Array sein, dessen Diagonale sich aus den Inputwerten berechnet:
(Groesser des Inputarray soll variabel sein)

1   zu  4  0  0
1         0  4  0
1         0  0  4

mit meinem Code bekomme ich leider nur Fehlermeldungen oder Values:

Public Function createSplineArray(Steps() As Variant) As Variant

Dim ArrayOne(UBound(Steps(1)), UBound(Steps(1))) As Variant
Dim i As Integer
ArrayOne(i, i) = 2 * (Steps(1) + Steps(2))
Next i
createSplineArray() = ArrayOne()
End Function

Was denn nun: Putput oder outout o. w. T.
.