как устранить ошибку в программном коде?

Option Compare Text
 
Private Sub Command1_Click()
 
    Dim A(12) As Integer
     N As Integer
     i As Integer
     Max As Integer
     imin As Integer
     R As Integer
 
 
    N = InputBox('Введите N = ", "Количество элементов")
    [B]    For i = to N[/B] не установлен нижний предел цикла
        A(i) = InputBox[B]('В[/B]ведите A(" & i & ")=", "Ввод элементов") Должна быть кавычка, а не апостроф
    Next i
 
    Max = 12
    imin = A(i)
    R = 0
 
    For i = 1 To 12[B] do 
        begin()[/B] это, наверное Паскаль остался
 
        If A(i) < Min Then
            imin = A(i)
        If
                If A(i) > Max Then
                    Max = A(i)
                End If
              [B]  Writeln('Разница', max - min)[/B] похоже тоже остатки из паскаля
        If
                    R = Max - imin
    Next i
 
    lblMax =[B] 'Мак[/B]симальный элемент" Должна быть кавычка, а не апостроф
    lblimin =[B] 'М[/B]инимальное значение" Должна быть кавычка, а не апостроф
    lblR = [B]'Р[/B]азница" Должна быть кавычка, а не апостроф
 
    txtMas =[B] 'ис[/B]ходный массив" Должна быть кавычка, а не апостроф
    For i = 1 To N
        txtMas = txtMas & A(i) &[B] ',[/B]" Должна быть кавычка, а не апостроф
    Next i
 
End Sub