maximo valor en vector

[carnero]

holas tengo el siguiente codigo:

Código vb:

Dim z As String
Dim vector(1) As String
 
SQL = "SELECT count(f1) FROM [Joint Reactions] "
Set rst = cnn.Execute(SQL)
          z = rst.Fields(0)
SQL = "SELECT * FROM [Joint Reactions] "
Set rst = cnn.Execute(SQL)
   
    For x = 0 To z
 
        vector(x) = Round(Abs(rst.Fields(7) / rst.Fields(5)), 2)
        rst.MoveNext
        
    Next
 

y bueno los valores de la operacin matematica, lo guardo en un vector (porque no se me ocurre otra forma ) y necesito obtener el valor mayor de los elementos dentro del arreglo.

gracias