vb elimina el carácter especificado y el texto anterior

Private Sub Command1_Click()

a = InputBox("Ingrese la cadena:")

b = InputBox("Carácter a eliminar:")

n = InStr(a, b)

Imprimir "Cadena:"; a

Imprimir "Para eliminar:"

< p; >Imprimir Medio(a, n + 1)

Fin Sub