Option Explicit

Private Sub Text1_Change()
If Text1 = "blah" Then Text2 = "boo"
End Sub