Dim result As String
result = Replace("Het zin, of een textbox of wat dan ook...", "Het", "De")
Hierin wordt iedere "Het" met "De" vervangen.
Dus dan krijg je zoiets als dit:
textbox1.text=Replace(textbox1.text," ","%")
En dat dan in TextChanged van je textbox doen.