Finding the Highest And Lowest value from an Array using UFT

Finding the Highest value:

a = array(4,5,8,9,1,7)

For i = 0 To ubound(a)
    If a(i) > a(0) Then
        a(0) = a(i)
    End If
Next

MsgBox a(0)   'Returns 9


Finding the Lowest value:

a = array(4,5,8,9,1,7)

For i = 0 To ubound(a)
    If a(i) < a(0) Then
        a(0) = a(i)
    End If
Next

MsgBox a(0)   'Returns 1


...