mayor y menor de una matriz

[vidalsoft]

tengo


Dim numeros(9) As Integer
Dim numerospares(9) As Integer
Dim numerosimpares(9) As Integer
Private Sub cmdGuardar_Click()
Dim n As Integer
Dim c As Integer
Dim i As Integer
Dim x As Integer
If (Me.txtNumeros.Text > 100) Then
MsgBox "numero invalido"
Exit Sub
End If

c = Val(txtPares.Text)
i = Val(txtImpares.Text)
n = Val(Me.txtNumeros.Text)


If n Mod 2 = 0 Then
c = c + 1
txtPares.Text = c
numerospares(c) = n
lblmayor.Caption = n

Else
i = i + 1
txtImpares.Text = i
numerosimpares(i) = n
End If




End Sub


COMO HAGO PARA PODER DESIFRAR EL MAYOR DE NUMEROSPARES(9) Y MENOR DE NUMEROSIMPARES(9)