Создать одномерный массив из 10 элементов.Его ввод обеспечить используя

Sub mListing1()
Dim mARR(), mSUM&, i&
ReDim mARR(1 To 10)
      With ActiveSheet
         .Cells.Delete
         Do
            i = i + 1
            mARR(i) = CLng(InputBox("LET's   WRITE   A  10   NUMBERs" & _
                  Chr(13) & String(40, "-") & Chr(13) & "Has has written:" & _
                  Space(3) & i - 1 & Space(3) & "numbers." & Chr(13) & String(40, "-") & _
                   Chr(13) & "We needed to add:" & Space(3) & 11 - i & Space(3) & _
                   "numbers." & Chr(13) & String(40, "-") & Chr(13) & _
                  "Our array:" & Space(3) & Join(mARR, Space(2))))
         Loop Until i = 10
            .Cells(1, 1).Value = "MY SOURS ARRAY"
            .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, UBound(mARR)).Value = mARR
      End With
   Call mSortArrar(mARR)
      With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
         .Offset(2, 0).Value = "ARRAY AFTER SORTING"
         .Offset(3, 0).Resize(1, UBound(mARR)).Value = mARR
      End With
   mSUM = 0
   Call mSumARR(mARR, mSUM)
      With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
         .Offset(2, 0).Value = "SUM OF ARRAY mARR   =" & Space(3) & mSUM
      End With
   Erase mARR: MsgBox Space(10) & "D O N E!"
End Sub
' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ 
Sub mSortArrar(ByRef arr)
   Dim i&, j&, t&
   For i = LBound(arr) To UBound(arr) - 1
      For j = i + 1 To UBound(arr)
         If CLng(arr(i)) > CLng(arr(j)) Then t = arr(i): arr(i) = arr(j): arr(j) = t
      Next 'j
   Next 'i
End Sub
' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ 
Sub mSumARR(arr, smmm)
   smmm = Application.Sum(arr)
End Sub