bah!
A veces en lugar de pensar algo elegante solo se me ocurre algo rápido:
Cadena = "dia18mes5año2005"
dia =MID(Cadena, InStr(Cadena, "dia")+3, InStr(Cadena, "mes")-(InStr(Cadena, "dia")+3))
mes = MID(Cadena, InStr(Cadena, "mes")+3, InStr(Cadena, "año")-(InStr(Cadena, "mes")+3))
anio = Right(Cadena, 4)
Eso (casi) estoy seguro de que funciona
