нужна программа в Excel

[Alinnet]

Составьте программу на языке VBA,которая определяет максимальный элемент и ставит его первым в одномерной матрице А длинной n элементов.Программа должна проверить правильность введенных пользователей данных и,если они неверные (n<=0),выдавать сообщение об ошибке.
Исходные данные: Результат:
1)Введите размерность матрицы n:-7 1) Неверно введено n
2)Введите размерность матрицы n:6 2)Максимальный элемент 11,6 :матрица 11,6 2 5 -7,1 2 1

Матрица (-7,1 2 5 11,6 2 1)

[DiemonStar]

  Dim A()
  Do
    N = InputBox("Введите разрядность массива", 1)
  Loop Until IsNumeric(N)
  If N > 0 Then
    ReDim A(1 To N)
    For I = 1 To N
      A(I) = CDbl(InputBox("Введите " & I & "-й элемент массива:", 0))
    Next I
    Max = 1
    For I = 2 To N
      Max = IIf(A(I) > A(Max), I, Max)
    Next I
    MaxVal = A(Max)
    For I = Max To 2 Step -1
      A(I) = A(I - 1)
    Next I
    A(1) = MaxVal
    MsgBox "Массив: " & Join(A, " ")
  Else
    MsgBox "Ошибка в разрядности"
  End If