Средне геометрическое значение массива

[pacyl]

Приветствую, подскажите, что не правильно в этой программе?

Ввести массив A(N). Найти среднее геометрическое значение массива. Найти разность минимального элемента массива и среднего геометрического. Вывести полученный массив.

Sub Primer()
Dim A, P, Min As Integer
For i = 1 To N
    A(i) = InputBox("Введите число - элемент массива")
Next i
'Найти среднее геометрическое значение массива.
P = 1
For i = 1 To N
    P = P * A(i)
Next i
P = P ^ (1 / N)
'Найти минимальный элемент массива.
Min = A(1)
For i = 2 To N
    If Min > A(i) Then Min = A(i)
Next i
'Найти разность минимального элемента массива и среднего геометрического.
R = Min - P
MsgBox (R)
End Sub