Найти число, которое меньше максимального элемента массива, но больше всех других его элементов - VB

Option Explicit
 Dim A(1 To 10) As Integer
Private Sub Form_Click()
  Dim max1 As Integer, max2 As Integer, i As Integer
    max1 = A(1)
    max2 = 0
    For i = 2 To UBound(A, 1)
        If A(i) > max1 Then
           max2 = max1
           max1 = A(i)
        ElseIf A(i) > max2 Then
          max2 = A(i)
        End If
    Next
    Print max2
End Sub
Private Sub Form_Load()
 
    A(6) = 26
    A(9) = 12
    A(5) = 5
    A(2) = 2
    A(8) = 11
    A(3) = 3
    A(1) = 100
    A(4) = 4
    A(7) = 9
    A(10) = 113
End Sub