Optimale / Andere Bestimmung der Feldlänge

[Lago]

Hallo VBA Experten,

suche für folgenden Code eine Optimierung:

Code:

Sub Feldlänge_Optimieren()
Dim vbLänge As Integer, Grenze As Integer
ReDim vbArr(1 To 10)
Grenze = 4
vbArr = Application.Transpose(Range("A1:A10"))

'Feldlänge bis Grenze
For i = 1 To Grenze
vbLänge = vbLänge + Len(vbArr(i))
Next i

Debug.Print "Länge bis Grenze: " & vbLänge
End Sub

Ich frage mich jetzt, ob es vielleicht noch einen besseren / anderen  Weg gibt, als vbLänge durch eine Schleife zu ermitteln.