Quello che dico vale in generale a prescindere dal linguaggio(che va inserito nel titolo).
è VB6?
Con ASC ottieni il codice ASCII del carattere che immetti.
Tu ottieni A=1, B=2... perchè il codice ASCII di A è 65 il codice ASCII di B è 66...quindi sottraendo 64 ottieni i valori 1,2...
Tu ha una cosa del genere:
a = 10
b = 50
...

Puoi modificare il ciclo for così:
For i = 1 To Len(testo)
lettera = UCase$(Mid$(testo, i, 1))
if lettera = "A" then
somma = somma + (10 - 64)
elseif lettera = "B" then
somma = somma + (50 - 64)
elseif...
somma = ...
end if
Next i