Превратить массив

Dim A (1 To 10) As Integer
Dim B (1 To 10) As Integer
Dim i As Integer, k As Integer, max As Integer, n As Integer, P As Variant
Dim S As String
 
Private Sub Command1_Click ()
Command1.Caption = "Расчет"
Label1.Caption = "Программа нахождения номера max по модулю элемента массива и сумму элементов массива, расположенных после первого положительного элемента."
Label2.Caption = "Номер максимального по модулю элемента массива:"
Label3.Caption = "Сумма элементов массива, расположенных после первого положительного элемента:"
n1 = InputBox ( "Введите количество элементов <= 10: ')
n = Val (n1)
 
For i = 1 To n
    A (i) = InputBox ( "Введите число", "Массив")
Next i
max = Abs (A (1)): kmax = 1
For i = 2 To n
If Abs (A (i))> max Then max = Abs (A (i)): kmax = i Else
Next i
Label4.Caption = "max =" & Str (max) & "№ -" & Str (kmax)
k = 0
For i = 1 To n
If A (i)> 0 Then k = k + A (i)
 
 
Next i
Label5.Caption = "Сумма:" & k
S = ""
For i = 1 To n
  S = S + Str (A (i)) & ","
Next i
Label6.Caption = "Исходный массив:" & S