VBA Excel

Private Sub CommandButton1_Click()
Dim a(5) As Double
Dim b As Variant
Dim i As Integer
For i = 0 To 5
a(i) = i: Debug.Print "a(" & i & ")=" & a(i)
Next i
Range("A1:F1") = a
b = Application.Transpose(a)
Range("A3:A8") = b
Debug.Print "b(1)=" & b(1)  HIER: Fehler
End Sub