Replace a word with another word

Dim MyString, MyInput, MyReturn
MyString = UCase("Welocme To India")
MyInput = UCase("ALL")
MyReturn = Replace(MyString, "INDIA", MyInput)
MsgBox MyReturn