Числа удовлетворяющие условию неравенства - VBA

Формулировка задачи:

Доброго времени суток, хотел попросить помощи с заданием Задание: Даны целые числа a1, a2, ..., an. Найти тройки чисел аi-1, ai, ai+1, удовлетворяющие условию: a(i)<=(a(i+1)+а(i-1))/2 В данный момент нахожусь далеко от компьютера и нет возможности скинуть код вба, но есть код Паскаля (фото) Через день - два смогу скинуть свой код, но в нем присутствуют ошибки

Решение задачи: «Числа удовлетворяющие условию неравенства»

textual
                            Листинг программы 
                        

                            Dim n, k, i As Integer 
Dim m As Boolean 
Dim a() As Variant 
Private Sub CommandButton1_Click() 
n = Val(TextBox1.Text) 
ReDim a(n) 
For i = 1 To n 
a(i) = InputBox("введите элемент A(" & i & ")", "ввод массива А из " & n & " элементов") 
TextBox2.Text = TextBox2.Text & (a(i)) & " " 
Next i 
End Sub 
Private Sub CommandButton2_Click() 
n = Val(TextBox1.Text) 
ReDim a(n) 
For i = 1 To n 
a(i) = Int(Rnd(20) * 100) 
TextBox2.Text = TextBox2.Text & (a(i)) & " " 
Next i 
End Sub 
Private Sub CommandButton3_Click() 
k = 0 
For i = 1 To n 
m = True 
For j = 1 To n 
If (a(j) = a(i)) And (i > j) Then 
m = False 
End If 
Next j 
If (m = True) Then 
k = k + 1 
End If 
Next i 
Label3.Caption = k 
End Sub 
Private Sub CommandButton4_Click() 
TextBox2.Text = "" 
End Sub
                        