Write a function which takes a string and a substring as input and which deletes the substring in the main string?

Sub sub1()

Stri = "abcxyghixy"
substr = "xy"
MsgBox Replace(Stri, substr, "")

End Sub