В массиве из 157 случайных чисел лежащих в диапазоне от 0 до 100 найти наибольшее и наименьшее числа - VB

Sub Task
Dim V(1 to 157) As integer
      Randomize
      for i%=1 to 157
          V(i)=Rnd()*100
      Next i%
      Vmax%=V(1)
      Vmin%=V(1)
      For i%=2 to 157
           If V(i%) > Vmax% then Vmax%=V(i)
           If V(i%) < Vmin% then Vmin%=V(i)
      Next i% 
      Debug.print VMax%
      Debug.print VMin%
End Sub