Excel expediente

=SI(LARGO(B4)>=23, MED(B4,6,5)&"-"&MED(B4,2,4),TEXTO(RECORTAR(MED(B4,1,ENCONTRAR("-",B4)-1)),"00000")&"-"&RECORTAR(MED(B4,ENCONTRAR("-",B4)+1,5)))