fehlerhafte UDF

Hallo Excel Profis,
zum Abschluss habe ich noch eine Frage zu einer benutzer-definierten-funktion.

Public Function AnzahlTor(Target, HZ, Optional Abstand = 10) As Long
Dim A
Dim i
Dim Mem As Long
Dim S As Long
Dim Z As Long
'On Error Resume Next
    A = Split(Target.Text, " ")
    For i = 0 To UBound(A)
        If A(i) = "" Then A(i) = 0
        Z = CLng(Split(A(i), ",")(0))
        A(i) = Application.Evaluate(A(i))
        If (Z  46 And HZ = 1) Or (Z >= 46 And HZ = 2) Then
            If Mem > 0 Then S = S - ((A(i) - Mem)  Abstand)
        End If
        Mem = A(i)
    Next
    AnzahlTor = S
End Function

Z = CLng(Split(A(i), ",")(0))