Keine Zuweisung an Datenfeld möglich

mir gelingt kein fehlerfreier Aufruf von Array()
ständig wird die Fehlermeldung
"Keine Zuweisung an Datenfeld möglich"
ausgegeben.

Woran könnte das liegen?

Danke für evtl. Hilfe.

-----------
Sub Test()
Dim znTab(0 To 7) As Variant
Dim x As Variant

znTab = Array("SechserSZ", "Sechser", "FuenferZZ", "Fuenfer", "ViererZZ", "Vierer", "DreierZZ", "Dreier")
For Each x In znTab()
Debug.Print x
Next
End Sub