Change first 2 charecters in cell to integer (with a loop (VBA))

Question

I was trying to create a script in vba which checks the cell "A1" and replaces the first 2 characters of the string with an integer. Should look something like this: