Заменить в слове Х те буквы, которые используются при написании слова У, буквой "о" - VB

private sub command1_Click()
dim X as string, Y as string, n as integer
x=inputbox ("Vvedite Slovo X")
y=inputbox ("Vvedite Slovo Y")
for n = 1 to len(Y)
  x=replace(x,mid(y,n,1),"o")
next n
msgbox x
end sub