Ich möchte erreichen das jedes zweite Zeichen aus diesem String zu einem Fragezeichen ersetzt werden. Was hab ich falsch gemacht?

dim Val as String

    Val = "Ene mene mopel der Esel der frisst Popel"

    For i = 1 To Val.Length() Step 2

        Val = Replace(Val, Mid(Val, i, 1), "?")

    Next

Textbox1.Text=Val