Составьте программу уменьшения всех эллементов массива в 10 раз - VB

Private Sub Command1_Click()
   Dim A, B() As Single, C() As Single
   Dim i As Integer, j As Integer, k As Integer, nPos As Integer
   A = Array(1, -2, 3, 4, -5, 6, 7, -8, 9, 10)
   Print "Исходный массив"
   For i = 0 To UBound(A)
       Print A(i);
       If A(i) >= 0 Then nPos = nPos + 1
   Next i
   ReDim B(nPos - 1), C(UBound(A) - nPos)
   Print
   Print "Результат"
   For i = 0 To UBound(A)
       If A(i) >= 0 Then
            B(j) = A(i)
            j = j + 1
       Else
            C(k) = A(i)
            k = k + 1
       End If
   Next i
   For i = 0 To UBound(B)
       Print B(i);
   Next i
   Print
   For i = 0 To UBound(C)
       Print C(i);
   Next i
End Sub