Here's a
VB function that should work for you:
Private Function StringToNumber(tmpString as String) as Integer
Dim tmpIndex as Integer
'
' clear results if no string
'
StringToNumber = 0
If Len(tmpString) < 1 Then
Exit Function
End If
'
' Loop through string byte by byte
'
For tmpIndex = 1 to Len(tmpString)
StringToNumber = StringToNumber _
+ Asc(Ucase(Mid$(tmpString,tmpIndex,1))) - 64
Next tmpIndex
End Function
64 is subtracted from the Ascii value of each byte "A" = 65 - 64 = 1,
"Z" = 90 - 64 = 26. This routine only works for letters. If you have punctuation or spaces, remove is from tmpString before calling this function.
Good Luck,