I am trying to alphabetize by generating a weight of a word, saving those numbers, and then comparing which numbers are greater. Don't ask me why I need to do this way.

So I am trying to come up with a function that calculates the value of a certain word. I am using the asc function to get the ascii value, but I am not good enough at math to figure out how to calculate this.

Here is what I have. It's written in VB, but I really don't care what language, I just want to understand the algorithm.

```
Dim byt As Integer
Dim acc As Integer
If txt = "" Then
lbl = "0"
Else
For i = 1 To Len(txt)
byt = Asc(Mid(txt, i, 1))
acc = acc + (byt / i)
Next i
lbl = Str(acc)
End If
```