<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Option Explicit<o:p></o:p>
<o:p></o:p>
Sub ConvertWord()<o:p></o:p>
Dim Word As String<o:p></o:p>
Dim i As Integer<o:p></o:p>
Dim WordNumber As String<o:p></o:p>
Dim Number As Long<o:p></o:p>
<o:p></o:p>
Word = Left(Range("A1"), InStr(Range("A1"), " ") - 1)<o:p></o:p>
Word = LCase(Word)<o:p></o:p>
For i = 1 To Len(Word)<o:p></o:p>
WordNumber = WordNumber & Asc(Mid(Word, i, 1)) - 96<o:p></o:p>
Next i<o:p></o:p>
Number = WordNumber * 1<o:p></o:p>
Range("B1") = Number<o:p></o:p>
End Sub