Задача VBA функция удаляющая заданную подстроку

[Mogar]

написать функцию, удаляющую из строки заданную подстроку

[Aleksandr H.]

Давно написана
https://docs.microsoft.com/ru-ru/off...place-function

[Mogar]

Сообщение от Aleksandr H.

Давно написана
https://docs.microsoft.com/ru-ru/off...place-function

нужно короче чтобы я писал в textbox 1 слово из которого я хочу убрать буквы, а в textbox 2 буквы, которые нужно убрать. а потом чтобы это всё в msgbox вывело. я не понимаю как это сделать.

[unbanned]

Mogar, дык все-таки удалить подстроку или буквы?

ну даже если буквы, то как-то так.

dim ts as string
dim rs as string

ts=textbox1.text
rs=textbox2.text

for i=1 to length(rs)

ts=replace(ts,mid(rs,i,1),"")

next i

msgbox ts