Вычислить среднее арифметическое введенных чисел - VB

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As Single, p As Single, A() As Single
n = InputBox("kolichestvo chisel")
ReDim A(1 To n)
 
Do While i < n
 i = i + 1
 p = InputBox("chislo" & i)
 A(i) = p
 Print A(i);
 s = s + p
Loop
 
s = s / n
MsgBox "Srednee arifmeticheskoe = " & s
Call BubbleSort(A, n + 1)
 
Print
For i = 1 To n
  Print A(i);
Next i
 
End Sub
Private Sub BubbleSort(ByRef Arr() As Single, ByRef n As Integer)
    Dim i As Long
    Dim j As Long
    Dim Tmp As Double
 
    For i = 1# To n Step 1
        For j = 1# To n - 1# - i Step 1
            If Arr(j) > Arr(j + 1#) Then
                Tmp = Arr(j)
                Arr(j) = Arr(j + 1#)
                Arr(j + 1#) = Tmp
            End If
        Next j
    Next i
End Sub