Länge eine Arrays - Syntax falsch?

Sub TEURSuchen()
Dim arrayTVCTEUR() As Integer
Dim daten As String
Dim i As Integer
Dim j As Integer
j = 0
daten = "("
For i = 1 To 50
If Cells(3, i).Value = "TEUR" Then
j = (j + 1)
ReDim Preserve arrayTVCTEUR(j)
arrayTVCTEUR(j) = Cells(3, i).Column
'MsgBox prompt:=arrayTVCTEUR(j)
End If
Next
For i = 1 To arrayTVCTEUR.Length
daten = daten + ("Sheet1!R" & (zeile) & "C" & (arrayTVCTEUR(i)) & ",")
Next
daten = daten.lenght - 1
daten = daten + ")"
MsgBox prompt:=daten
End Sub