Массив: Найти сумму трех минимальных из массива двузначных чисел - VB

Function Sum3Min1(arr() As Long) As Long 'массив arr должен быть определен как arr(1 to n)
    Dim i As Long, j As Long, tmp As Long, a() As Long
    a = arr
    For i = 1 To 3
        For j = i + 1 To UBound(a)
            If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp
    Next j, i
    Sum3Min1 = a(1) + a(2) + a(3)
End Function