¿Cómo eliminar el contenido de texto especificado en el cuadro de edición de idioma simple?

.¿Versión? ¿Subrutina? _EditBox1_contenido cambiado

'?¿Método? si es cierto? (¿Buscar texto? (editbox1.content, ? "2222",? ,? False) ≠?-1)

Editar cuadro 1.content = ?¿Reemplazo de subtexto? (editbox1.content, ? "2222", ? "", ? ,? ,? Verdadero)

. Si es verdadero final.