Исправить ошибку в задачи VB

Помогите исправить ошибку, пожалуйста! С клавиатуры вводится одномерный массив, и выводится максимальное и минимальное число(числа в массиве не должны повторяться) Option Explicit Private Sub Command1_Click() Dim a As Integer, n As Integer, max As Integer, min As Integer Dim imin As Integer, imax As Integer, i As Integer For i = 1 To 30 a(i) = Val(InputBox("Введите a ", "Ввод данных") Print a(i) Next Print Next Print imin = 1: imax = 1: max = a(1): min = a(1) For i = 1 To n If min > a(i) Then min = a(i): imin = i If max < a(i) Then max = a(i): imax = i Next Next Print "Минимальный элемент массива: a = " & min Print "Максимальный элемент массива: a = " & max End Sub