Проблема с написанием кода для массивов на VBA Word

[Oleg4ek]

Проблема с написанием кода для массивов на VBA Word

Мне дан одномерный массив А размерности N. Нужно найти элемент наиболее близкий к среднему значению массива. Я написал вот такой код но он не работает, помогите пожалуйста найти ошибку в нем и правильно его запустить.

Private Sub CommandButton1_Click()
Dim N As Integer
Dim A(N) As Integer
Dim Sred As Double

N = Val(TextBox1)
For i = 1 To N
Sred = Sred + A(i)
Next i
Sred = Sred / N

rzmin = Abs(A(1) - Sred): Num = 1
For i = 2 To N
razn = Abs(A(i) - Sred)
If razn < rzmin Then rzmin = razn: Num = i
Next i
TextBox2 = Str(Sred)
TextBox2 = Str(razn)
End Sub