change letter to number add number
 

Hello,

I need help writing a macro that will change letters to numbers and add
the numbers for a total.
Using the alphbet with special values for each letter.
Example:

CELL A1 is rudy
r = 1
u = 2
d = 4
y = 3

total = 10

So if cell A1 = Rudy then B1 will show 10

if A2 = Rud then B2 will show 9

if A3 = B L A N K then B3 will show nothing

Thanks in advance,
Bill