Вставить максимальный элемент массива после всех элементами, в которых есть цифра 1 - VB

Option Explicit
 
Private Sub Command1_Click()
    Dim am() As Integer, n As Integer, d As Integer, Max As Integer, T As Integer
    Dim i As Integer, j As Integer, s As Integer
    Randomize
    Picture1.Cls
    n = Val(Text1)
    ReDim am(1 To n)
    Max = am(1)
    For i = 1 To n
         am(i) = Int(71 * Rnd - 40)
         If Max < am(i) Then Max = am(i)
         Picture1.Print am(i)
    Next i
    Picture3.Cls
    Picture3.Print Max
    Picture2.Cls
    For i = UBound(am) To 1 Step -1
        d = 0
        T = Abs(am(i))
        Do While T
            d = T Mod 10
            If d = 1 Then Exit Do
            T = T \ 10
        Loop
        If d = 1 Then
             s = am(i)
             ReDim Preserve am(1 To UBound(am) + 1)
             For j = UBound(am) - 1 To i Step -1
                 am(j + 1) = am(j)
             Next j
        am(i + 1) = Max
        End If
    Next i
    For i = 1 To UBound(am)
        Picture2.Print am(i)
    Next
End Sub