Определить сумму элементов массива,расположенных после минимального по модулю значения - VB

    Min = Abs(Ar(0))
    For N = 1 To UBound(Ar)
        If Abs(Ar(N)) < Min Then Min = Abs(Ar(N)): Sum = 0
    Else
        Sum = Sum + Ar(N)
    End If            
    Next