Those are ActiveX controls. Why are you using those?


Sub test()


With TextBox1
.MultiLine = True
.Text = Replace(TextBox1.Text, "blue", "Mr." & vbCr & "Adrian Tomc")
End With
With TextBox11
.MultiLine = True
.Text = Replace(TextBox1.Text, "blue", "Mr." & vbCr & "Adrian Tomc")
End With
With TextBox12
.MultiLine = True
.Text = Replace(TextBox1.Text, "blue", "Mr." & vbCr & "Adrian Tomc")
End With
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/