Помогите решить задачу - VB

Формулировка задачи:

Необходимо написать процедуру для введенного одномерного массива, которая проверяет его упорядоченность: по возрастанию или по убыванию. Результат работы должен быть равен 1- если массив упорядочен по убыванию, 2 если по возрастанию и 0 в других случаях

Решение задачи: «Помогите решить задачу»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> UporadochenLiVVedenniyMassiv() <font color="blue">As</font> <font color="blue">Integer</font>
  <font color="blue">Dim</font> m(<font color="darkblue"><b>1000</b></font>) <font color="blue">As</font> <font color="blue">Integer</font>

  <font color="00AA00">'Введем массив</font>
  <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>, j <font color="blue">As</font> <font color="blue">Integer</font>
  <font color="blue">For</font> i=<font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="darkblue"><b>999</b></font>
    j=Val(InputBox(<font color="teal">"Введите "</font>  & (i +<font color="darkblue"><b>1</b></font>) & <font color="teal">" элемент массива."</font>))
    m(i)=j
  <font color="blue">Next</font> i

  <font color="blue">Dim</font> b <font color="blue">as</font> <font color="blue">Boolean</font>

  b = True
  <font color="00AA00">'Проверим.</font>
  <font color="blue">If</font> m(<font color="darkblue"><b>0</b></font>)>m(<font color="darkblue"><b>1</b></font>) <font color="blue">Then</font>
    <font color="blue">For</font> i=<font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="darkblue"><b>999</b></font>
      <font color="blue">For</font> j=<font color="darkblue"><b>0</b></font> <font color="blue">To</font> i-<font color="darkblue"><b>1</b></font>
        <font color="00AA00">'Если Следующий (i) больше предыдущего (j) то не упорядочен.</font>
        <font color="blue">If</font> m(i)>m(j) <font color="blue">Then</font> b=False
      <font color="blue">Next</font> j
    <font color="blue">Next</font> i
    <font color="blue">If</font> b <font color="blue">Then</font>
      UporadochenLiVVedenniyMassiv=<font color="darkblue"><b>1</b></font>
    <font color="blue">End</font> <font color="blue">If</font>
  <font color="blue">ElseIf</font> m(<font color="darkblue"><b>0</b></font>)<m(<font color="darkblue"><b>1</b>) <font color="blue">Then</font>
    <font color="blue">For</font> i=<font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="darkblue"><b>999</b></font>
      <font color="blue">For</font> j=<font color="darkblue"><b>0</b></font> <font color="blue">To</font> i-<font color="darkblue"><b>1</b></font>
        <font color="00AA00">'Если Следующий (i) меньше предыдущего (j) то не упорядочен.</font>
        <font color="blue">If</font> m(i)<m(j) <font="" color="blue">Then b=False
      <font color="blue">Next</font> j
    <font color="blue">Next</font> i
    <font color="blue">If</font> b <font color="blue">Then</font>
      UporadochenLiVVedenniyMassiv=<font color="darkblue"><b>2</b></font>
    <font color="blue">End</font> <font color="blue">If</font>
  <font color="blue">End</font> <font color="blue">If</font>
  <font color="blue">If</font> <font color="blue">Not</font> b <font color="blue">Then</font> 
    UporadochenLiVVedenniyMassiv=<font color="darkblue"><b>0</b></font> 
  <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>
</m(j)></m(<font>
                        