A good function for clearing all the text box content on the page (you can also change it to another page control type at Will)

Private   Sub settextboxvalue () Sub Settextboxvalue ( Byval Page As Control, Byval Textboxvalue As   String )
For   Each CTL As Control In Page. Controls
If   Typeof CTL Is Textbox Then
Ctype (CTL, textbox). Text = Textboxvalue
Else
If CTL. Controls. Count >   0   Then
Settextboxvalue (CTL, textboxvalue)
End   If
End   If
Next
End sub

For the function, see the title,
Call example: settextboxvalue (Me. Page, "string to be replaced ")
If you want to replace all the labels on the page
If typeof CT1 is textbox then, you can change textbox to label. This is a good function for your reference.