Per ottimizzare potresti definire un array da 26 elementi (da 1 a 26) dentro il quale memorizzi il valore che assumerà la lettera corrispondente. Nel ciclo sommi il contenuto dell'elemento dell'array indicizzato dalla lettera.

Es:
codice:
Array(1 to 26) of integer

Totale=Totale+Array(Asc(UCase$(Mid$(testo, i, 1))-64)