Массивы, помогите найти ошибки) Если таковы есть) - VB

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

Dim A(100)
Dim B(100)

Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 1 To n
    A(i) = Val(InputBox("a(i)"))
    Picture1.Print "a"; i; "="; A(i)
    Next
    End Sub
    
Private Sub Command2_Click()
n = Val(Text1.Text)
For i = 1 To n
    A(i) = Int(1001 * Rnd + 1)
    B(j) = Int(1001 * Rnd + 1)
    Picture1.Print "a"; i; "="; A(i)
    Next
End Sub

Private Sub Command3_Click()
Amax = -10000000000#
Amin = 10000000000#
For i = 1 To n
If A(i) > Amax Then
Amax = A(i)
imax = i
End If
If A(i) < Amin Then
Amin = A(i)
imin = i
End If
Next
For i = 1 To n
j = i
If i = imax Then
B(j) = A(imin)
Else
If i = imin Then
B(j) = A(imax)
Else
B(j) = A(i)
End If
End If
Next
For i = 1 To n
Picture2.Print "b"; i; "="; B(i)
Next
End Sub

Решение задачи: «Массивы, помогите найти ошибки) Если таковы есть)»

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

                            Private Sub StartProcess()
    ReDim intA(intN)
    ReDim intB(intN)
    Dim intI As Integer
    Dim intMinA As Integer
    Dim intMaxA As Integer
    Dim intMinI As Integer
    Dim intMaxI As Integer
    Dim intRand As Integer
    
    Randomize
    objDic.RemoveAll
    
    intRand = Int(((intN + 1) * Rnd) + 1)
    objDic.Add intRand, -1

    For intI = 0 To intN - 1
        
        While objDic.Exists(intRand)
            DoEvents
            intRand = Int(((intN + 1) * Rnd) + 1)
        Wend
        objDic.Add intRand, intI
        intA(intI) = intRand
        intB(intI) = intA(intI)
    Next intI
        
    intMinA = intA(0)
    intMaxA = intA(0)
    intMinI = 0
    intMaxI = 0
    
    For intI = 1 To intN - 1
        If intA(intI) < intMinA Then
            intMinA = intA(intI)
            intMinI = intI
        ElseIf intA(intI) > intMaxA Then
            intMaxA = intA(intI)
            intMaxI = intI
        End If
    Next intI
        
     intB(intMinI) = intMaxA
     intB(intMaxI) = intMinA
End Sub

                        