Rechnen mit Arrays

Sub Ausschüttung_Checkbutton()
Dim asplan As Variant
Dim kkasplan As Variant
Dim kkasnull As Variant
Dim i As Integer
Dim Delta(5) As Variant
Application.ScreenUpdating = False
asplan = Range("XY").Value
Application.Calculate
kkasplan = Range("XZ").Value
Range("XY").Value = 0
kkasnull = Range("XZ").Value
For i = 1 To 5
Delta(i) = kkasplan(i) - kkasnull(i)
Next i
End Sub

Was ich auch nicht verstehe ist, warum bei Ubound(kkasplan) immer 1 rauskommt. Die Range ist aber 5 lang. Liegt das daran, dass diese horizontal und nicht vertikal ist? Wenn ja, muss ich den Array dann erst transponieren?
Vielen Dank für eure Hilfe!
Gruß
Fred