how to get maximum of negative value in vb.net

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Array() As Integer = {-11, -2, -345, -98, -88}

        Dim max As Integer

        max = Array(0)

        For Each i As Integer In Array

            If i > max Then

                max = i

            End If

        Next

          MsgBox("Max is :" & max)

    End Sub