Necesito un arreglo que me diga la intentar del numero mas alto en vb6.0

Voy a suponer que estamos hablando de un arreglo de enteros (o incluso de doubles funcionaría igual) y que deseas saber en cual posición está el número mayor.

public function getMayorPos(ar as Integer) as Integer

          dim mayor, pos, n as integer

          mayor = 0

          for n = 0 to ubound(arr)

               if arr[n] > mayor then

                  mayor = arr[n]

                  pos = n

              end if

          next n

          getMayorPos = pos

          exit function

end function