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

Sub Primer()
 
    'Тип данных нужно указывать для каждой переменной.
    'Для массива нужно указывать круглые скобки.
    Dim A() As Integer
    Dim P As Integer, Min As Integer
    Dim N As Integer
    Dim R As Integer
    Dim i As Integer
    
    N = InputBox("Укажите, сколько чисел должно быть в массиве.")
    
    'Прежде чем работать с массивом
    'нужно указать его размер. Размер массива - это количество
    'элементов в массиве.
    'Размер массива задаётся с помощью ReDim.
    '1 To - используется, чтобы порядковый номер первого элемента массива
    'был один (по умолчанию ноль), чтобы было удобно писать код.
    ReDim A(1 To N)
    
    For i = 1 To N Step 1
        A(i) = InputBox("Введите число - элемент массива")
    Next i
    
    'Найти среднее геометрическое значение массива.
    P = 1
    For i = 1 To N Step 1
        P = P * A(i)
    Next i
    
    P = P ^ (1 / N)
    
    'Найти минимальный элемент массива.
    Min = A(1)
    For i = 2 To N Step 1
        If Min > A(i) Then Min = A(i)
    Next i
    
    'Найти разность минимального элемента массива и среднего геометрического.
    R = Min - P
    MsgBox (R)
    
End Sub