buenas

estoy intentando eliminar una palabra que se como empieza, y se como termina.

hice una mezcla de mid con left y replace, pero a estas horas ya no me da la cabeza.

La palabra empieza con - y termina con -

Como nose que hacer, intente atravez de un LEN - 10 (10 caracteres son "fijos"), y el resultado del len-10 , enrealidad, ya no me acuerdo que hice

supongo que esta facil, si lo arreglo lo pongo.creo que ya estoy durmiendo

solucionado:

Como se que los 10 ultimos caracteres son los que me sirven, todo lo primero lo borro...

sData = "-Viernes-21/10/2011"
 inicio = 1
 fin = Len(sData) - 10
cancer = Replace(sData, Mid(sData, inicio, fin), "")
MsgBox cancer 'me dara la fecha

Tu código tiene un error, la función no devuelve nada, revísalo.
Mira qué interesante, voy a hacer un reto de esto.

DoEvents!

Estoy ciego, mis disculpas...

DoEvents!