vb 2005.net code

I have this code to find the highest number, but I also need one to find the lowest number.



Sub Highest()
      

Dim H As Integer

    H=Array(0)

        For IndexH As Integer = 1 To UBound(array)
            If  H < array(IndexH) Then
                H = array(IndexH)
            End If
        Next
        Label_highest.Text = H
    End Sub

Eh?

Dim H As Integer     H=Array(0)         For IndexH As Integer = 1 To UBound(array)             If  H > array(IndexH) Then                 H = array(IndexH)             End If         Next         Label_lowest.Text = H

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)