Visual Basic - Valor mayor de un array

Hola,

Tengo un problema, tengo un array valores(i) de i valores de tipo integer y querria saber cual es valor mayor de todos ellos y su posición (i).

Un saludo y muchas gracias

Dim i As Integer
Dim maxindex As Integer

maxindex = 0

For i = 1 To UBound(array) 'suponemos indice desde 0 a n
If array(i) > array(maxindex) Then
maxindex = i
End If
Next

valormax = array(maxindex)

Gracias Fernando,

Ya lo he solucionado con tu ayuda.

Un saludo.

Christian

como quedaria para el valor minimo. gracias