VBA Program that sums the values of letters (with given values) that are in the word

Hi guys! I have written a program that gives the sum of the values of the letters (i have given the values for the each letter), but it is not working. I would be very happy if someone would help me. Thank you.

Sub scrabble()

Dim beseda As Integer
Dim dolzina As Integer
Dim presledek As Integer
Dim crka As Integer
Dim vsota As Integer
Dim ena As Integer
Dim dva As Integer
Dim tri As Integer
Dim stiri As Integer
Dim pet As Integer
Dim osem As Integer
Dim deset As Integer


beseda = Cells(1, 1)
presledek = " "
dolzina = Len(beseda)

ena = "A" = "E" = "I" = "L" = "N" = "O" = "R" = "S" = "T" = "U" = "a" = "e" = "i" = "l" = "n" = "o" = "r" = "s" = "t" = "u"
dva = "D" = "G" = "d" = "g"
tri = "B" = "C" = "M" = "P" = "b" = "c" = "m" = "p"
stiri = "F" = "H" = "V" = "W" = "Y" = "f" = "h" = "v" = "w" = "y"
pet = "K" = "k"
osem = "J" = "X" = "j" = "x"
deset = "Q" = "Z" = "q" = "z"
vsota = 0

For crka = 1 To dolzina

If Mid(beseda, crka, 1) = ena Then
vsota = vsota + 1
ElseIf Mid(beseda, crka, 1) = dva Then
vsota = vsota + 2
ElseIf Mid(beseda, crka, 1) = tri Then
vsota = vsota + 3
ElseIf Mid(beseda, crka, 1) = stiri Then
vsota = vsota + 4
ElseIf Mid(beseda, crka, 1) = pet Then
vsota = vsota + 5
ElseIf Mid(beseda, crka, 1) = osem Then
vsota = vsota + 8
ElseIf Mid(beseda, crka, 1) = deset Then
vsota = vsota + 10
ElseIf Mid(beseda, crka, 1) = 0 Then
vsota = vsota + 0
Else
vsota = vsota + 0
End If

Next crka
Cells(2, 1) = vsota

End Sub

hmmmm...so what is it supposed to do? by the way, I have a client in Slovenia and I will be visiting the country as soon as the virus is over.

Here is a macro that will do what your attempted code tried to do...

Please Login or Register  to view this content.

Note: You did not say how you were handling the Blank Tile when used in a word. My code assume you will either leave it out or put a blank character rather than the letter at the position it occurs at.