VBA Array - A geht B nicht

Sub oder 

Function als Argument übergeben?
Siehe unten, ich ernte nur Fehler
"Unverträglicher Typ: Datenfeld oder benutzerdefinierter Typ erwartet"
Danke für Hilfe,
Gruß von Rudolf

Sub callTest()
Dim feldA(1 To 2) As Variant
Dim feldB As Variant
feldA(1) = 200
feldA(2) = 400
Call test(feldA(), "A")
feldB = Array(200, 400)
Call test(feldB(), "B")
End Sub



Sub test(ByRef x() As Variant, sTxt As String)
Dim i As Long
For i = LBound(x) To UBound(x)
MsgBox "feld" & sTxt & "(" & i & ") = " & x(i)
Next
End Sub