Удалить из массива все четные элементы, у которых последняя цифра 2 - VB

Dim am(100) As Double, ac(100) As Double
Private Sub Command1_Click()
  Picture1.Cls
  Picture2.Cls
  n = Val(Text1)
 For i = 0 To n - 1
  am(i) = Int(70 * Rnd() - 30)
   Picture1.Print am(i);
    If (Abs(am(i)) Mod 10 = 2) Then am(i) = am(i + 1): n = n - 1: i = i - 1
    Next i
  For i = 0 To n - 1
        Picture2.Print am(i);
        Next i
End Sub