Почитал конешно... Суть понятна) но до полноценного решения не добраться(
Вот набросок:

Sub Commander1_Click()
Dim k As Integer
Dim i As Integer
k = 0
For i = 1 to n
If Z(i) > Z(i +1) Then
k = 1
End If
Next i
If k = 1 Then
MsgBox ("Элементы массива не распологатся по возростанию")
End If
If K = 0 Then
MsgBox ("Элементы массива расположены по возростанию")
End If
End Sub


Надо применить конкретно к массиву Z(n) = [-3, 6]