Заменить последний элемент массива, кратный 3, нулем - VB

Private A() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(31 * Rnd - 15)
Picture1.Print A(i);
Next i
 
Picture2.Cls
If A(i - 1) Mod 3 = 0 Then A(i - 1) = 0
Picture2.Print A(i - 1);
End Sub

Private A() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(31 * Rnd - 15)
Picture1.Print A(i);
Next i
 
Picture2.Cls
If A(i - 1) Mod 3 = 0 Then A(i - 1) = 0
For i = 1 To n
Picture2.Print A(i);
Next
End Sub