Visual Basic - SEGUNDO NUMERO MAYOR por FAVOR

Un FAVOR!!!!!!!!!!!!!!
alguien que sepa me podria ayudar con un problema en visual
acerca de hallar el segundo numero mayor de un
se supone agrego varias numeros a un listbox y de ahi se debe hallar el sgundo numero mayor

Private Sub Command1_Click()
Dim Ord() As Integer ' Arreglo de paso para ordenar los números de menor a mayor
Dim I, j, Aux As Integer
ReDim Ord(List1.ListCount - 1) ' redimenciono el arrego a la cantidad de items del list
For I = 0 To List1.ListCount - 1 ' paso los número del list al arreglo
Ord(I) = CInt(List1.List(I))
Next I
For I = 0 To UBound(Ord) ' ordeno el arreglo
For j = I + 1 To UBound(Ord)
If Ord(I) > Ord(j) Then
Aux = Ord(I)
Ord(I) = Ord(j)
Ord(j) = Aux
End If
Next j
Next I
MsgBox "el segundo número mayor es " & Ord(UBound(Ord) - 1) ' muestro el segundo número mayor

End Sub