VBA code for converting set of item coding to full names and percentage

You will need to give a complete list of codes.
CO=cotton
WO=wool
PAN=Acrylic
PA=Nylon
etc.

Do you want the result to be a UDF (User defined function) or a macro?

ACETATE = AC
ARAMID = AR
ACRYLIC = PAN
ALPACA = WP
ANGORA = WA
BAMBOO (Rayon) = CV
CAMEL = WK
CASHGORA = WC
CASHMERE = WS
COTTON = CO
CUPRO = CUP
ELASTODIENE = ED
ELASTOMULTIESTER = EME
GLASS = GF
HEMP = CA
JUTE = JU
KAPOK = KP
LAMA = WL
LEATHER = LE
LINEN = LI
LYCRA = EL
LYOCELL = CLY
LUREX = MTF
MODACRYLIC = MAC
MODAL = CMD
MOHAIR = WM
NYLON = PA
ORGANIC COTTON = OCO
POLYAMIDE = PA
POLYIMIDE = PI
POLYESTER = PES
POLYETHYLENE = PE
POLYURETHANE = PU
POLYPROPELENE = PP
POLYISOPRENE = IR
PVC = PVC
RAMIE = RA
RAYON = CV
RECYCLED COTTON = RCO
RECYCLED NYLON = RPA
RECYCLED POLYESTER = RPES
RUBBER (NATURAL) = NR
SILK = SE
SISAL = SI
STRAW = ST
SUEDE = SU
TENCEL = CLY
TRIACETATE = CTA
VISCOSE = CV
WOOL = WO
YAK = WY
VIRGIN WOOL = VW
WOOD = WD
RESIN = RES
OTHER / UNSPECIFIED = OT

a Macro would be great, Thank a lot for taking the time to help.

Where does the macro find (for example): WO/PA/CMD_50/30/20
And where would the macro write the new information?
For example, is the former always in column A and the latter in column B? Where?

it's the information in column B and it should be written in column D

Hello again,

Sorry for not being very clear.
I prepared an example sheet

On sheet 1 you see the basic layout how i get the data.
in column A we have the productname and in columnn B the fibercoding.
In column C i want to get the fully written fibername and perentage.

Doing this with functions is a real pain and i have almost no knowledge of VBA.
(ignore the last entry in sheet 2 in the I column picked a wrong example that will not be in the new format).
On sheet 2 you will also find the correct fibercoding without duplicates.

Thanks for you time and willingness the help.

I'm having computer problems, problems getting onto this site, and when I do get on, I'm unable to use the "Advanced" function to post a message. If you will send me an email, I will email back the code I have written. My email address can be found at: http://theicca.wikispaces.com/08+-+ICCA+Officers, StevenM.

Thank you so much Steven your code works great