Something like this should do it:

VB Code:
  1. For i As Integer = 0 To Arr.GetUpperBound(0) - 1

  2.             If Arr(i) >= Arr(i + 1) Then

  3.                 MessageBox.Show("Array not increasing", "yada,yada, yada")

  4.                 End                             ' Exit app

  5.             End If

  6.         Next