Напечатать сумму чисел, предшествующих максимальному числу - VB

Option Explicit
 
Private Sub Form_Load()
    Dim Sum As Long, tSum As Long, I As Long, iM As Long, N As Long, Arr() As Long
    N = 10
    ReDim Arr(N - 1)
    iM = 0: Randomize
    Arr(0) = Int(Rnd * 100): tSum = Arr(0)
    For I = 1 To N - 1
        Arr(I) = Int(Rnd * 100)
        If Arr(I) > Arr(iM) Then
            iM = I: Sum = tSum
        End If
        tSum = tSum + Arr(I)
    Next
    If iM Then MsgBox "Сумма " & Sum Else MsgBox "Таких чисел нет"
End Sub