Третий раз информатику буду сдавать информатику. На языке Бейсике

Option Explicit
 
Private Sub Command1_Click()
    Dim A() As Double, n As Integer, i As Integer, s As String
    Randomize
    n = InputBox("Введите размер массива" & vbCrLf & "n = ", "", 10)
    If n < 6 Then MsgBox "Размер массива недостаточен для решения данного задания!": Exit Sub
    ReDim A(1 To n)
    s = "Исходный массив:" & vbCrLf
    For i = 1 To n
        'A(i) = Int(Rnd * 99 + 1)'Для заполнения массива случайными числами
        A(i) = InputBox("Введите A(" & i & ")", "", Int(Rnd * 99 + 1))
        s = s & A(i) & vbTab
    Next i
    s = s & vbCrLf
    If A(4) > A(6) * A(6) Then
       For i = 4 To n Step 4
           A(i) = 0
       Next i
       s = s & "Четвертый элемент массива больше квадратного 6-го элемента"
    Else
       For i = 1 To n
           A(i) = A(i) / 2
       Next i
       s = s & "Четвертый элемент массива HE больше квадратного 6-го элемента"
    End If
    s = s & vbCrLf & "Результат:" & vbCrLf
    For i = 1 To n
           s = s & A(i) & vbTab
    Next i
    MsgBox s
End Sub