Udskifte bogstav i serienummer med tal

Hej Jeg har et serienummer der er opbygget som:

0-SXXXXXXYZZZZZZZ

Hvor X'er & Z'er er tal og S og Y er bogstaver

Jeg søger en funktion der i VBA kan fjerne : "0-S"

Udskifte Y med de tilhørende tal i forhold til bogstav.

A=0, B=1, ...., J=9 (bliver aldrig højere end J)

Serienummeret hentes fra en celle og indsættes via makroen flere steder i sin originale form, men et enkelt sted har jeg behov for at ændre til dette nye format.

100p da det haster.