how 'bout if you set
Code:
sTemp = Ucase(txt)
..then try
Code:
sTemp = Replace(sTemp, "MATTHEW", "Matt")
hope this helps.