Array füllen funktioniert nicht

Sub Linx()
Dim arrTopic As Variant
Dim intArr As Integer
Dim strIn As String
Dim intIn As Integer
Dim arrDaten(1 To 4, 0 To 300) As Variant
Dim Daten
On Error GoTo errHandler
'arrTopic = Array("_8A_PLC1", "_8A_PLC2", "_8A_PLC3", "_8A_PLC4")
arrTopic = Array("_8A_PLC1")
Application.ScreenUpdating = False
For intArr = 0 To UBound(arrTopic)
RSIchan = DDEInitiate("RSLinx", arrTopic(intArr))
For intIn = 0 To 200
strIn = "In[" & intIn & "]"
Daten = DDERequest(RSIchan, strIn)
arrDaten(intArr, intIn) = Daten         'schreibt nichts in das array rein
Cells(intIn + 2, intArr + 2) = Daten    'Zellen werden mit den Werten beschrieben
Next
DDETerminate (RSIchan)
Next
Cells(2, 3).Resize(UBound(arrDaten)) = arrDaten
errHandler:
Application.ScreenUpdating = True
DDETerminate (RSIchan)
End Sub