VBA routine to autopoplate column from value in a data valid

[Xarin]

Hi. Looking for code that will work the following way: Column D is a drop down list (from data validation) of text values, say "red star", "Blue triangle", "red triangle". When an item is picked Column C would populate the symbols (Wingdings), example is diamond = wingdings "t". I think using some type of Case Selection would work, like case "red triangle" = "t" wingdings.color. (It definately needs to take in consideration the color.) I know how in my head it should work but not proficent enough in programming to complete it. I'm a newbie so be gentle.