Todas las "e" de una cadena o sólo 1 quieres remover?
Pensandolo, en tal caso podrías hacer un for x=1 to Len(cadena) que vaya recorriendo hasta el largo de la cadena y que si el Mid de (cadena, x, 1) es distinto de "
e" entonces que guarde la cadena en una variable contenedora o acumulador, luego podrías hacer un contador para controlar si quieres sacar todas las "e" o tan sólo 1
Te muestro un ejemplo que acabo de hacer:
Private Sub cmdQuitar_Click()
'Declaracion de variables
Dim strCadena As String, strAux As String
'Asignacion de valor
strCadena = LCase(txtValor1.Text)
'Busqueda de "e"'s y eliminacion
For x = 1 To Len(strCadena)
If Mid(strCadena, x, 1) <> "e" Then
strAux = strAux + Mid(strCadena, x, 1)
End If
Next x
'Asignacion de resultado final
lblResultado.Caption = strAux
End Sub
El proyecto por si lo quieres ver y/o probar mejor:
http://www.mediafire.com/?h0cyh53jmgv