¿Cómo encontrar una subcadena en una cadena y eliminarla en vb?

Simplemente use la función de división, ~~ o(∩_∩)o... Escribí un código fuente para usted:

Cree dos textos y un comando en el formulario para copiar el siguiente código y ejecutarlo. Luego ingrese una cadena aleatoria de caracteres en texto1. Presione la tecla de comando para ver el efecto. ...

Subcomando privado 1_Click()

Dim s() como cadena, sr como cadena, t como cadena

Sr = InputBox ("Por favor, introduzca la cadena a eliminar", "delete")

s = Split(Text1. Text, sr)

Para i = 0 al límite inferior

t = t & amp斯(一)

Siguiente yo

Texto 2. Texto = t

MsgBox "***Eliminado" &UBound+1. "Coincidir contenido"

Conector final