maximo valor en vector

[carnero]

retracto mi pregunta, lo hise de la siguiente manera, lo dejo por si a alguin le llegara a servir :P

Código vb:

While rst.EOF = False
        
            x = Round(Abs(rst.Fields(7) / rst.Fields(5)), 2)
        If z > x Then
        rst.MoveNext
        Else
            z = x
            rst.MoveNext
        End If
   Wend