This code working good :
lResult = Replace(Me.Text1, "hotel", "motel", , , vbBinaryCompare)
lResult = Replace(lResult, "Hotel", "Motel", , , vbBinaryCompare)
lResult = Replace(lResult, "HOTEL", "MOTEL", , , vbBinaryCompare)
Me.Text1 = lResult
Thanks Ari for your help.