Absolute EASIEST Way To Find And Replace Text in Any Control!!

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text, 1, , vbTextCompare)
'here's how it works:
  ' where text1.text is , thats the source of what ur looking in, ex: a label or text box
  ' where text2.text is , that's what u are looking for
  ' where text3.text is , thats what u want to replace what u find with
  ' leave everything else alone after that
  
  
Text2.Text = "Find What?"
Text3.Text = "Replace With What?"
End Sub
Private Sub Form_Load()
Text2.Text = "Find What?"
Text3.Text = "Replace With What?"
Text1.Text = "Type Text in Here"
End Sub