a(1) = 1: a(2) = 3: a(3) = 7: a(4) = 5: a(5) = 4
s = "PRE2021reform": t = 0
For i = 1 To 5
If a(i) >= t Then t = a(i)
s = Mid(s, 1, t - 1) + Mid(s, t + 1)
Next i
Text1.Text = s