Code Sample for a Find/Replace in Textbox

Does Anyone Know How to do a Find and Replace in a Text box Using Visual Basic 6:wave:

If you have more than one text box use an array and the replace function.

VB Code:

Private Sub Command1_Click()
    Text1.Text = Replace(Text1.Text, "t", "@")
End Sub

Thanks for the Help that worked. :wave:

Thanks for the Help that worked. :wave:

hi there crmfghtr, in order to make all se resolved, you have to edit the first post and add resolved to the subject :)