Any Ideas?

Thanks in advance for your help.
Brian

Try  something like this:

Dim Ndx As Integer
Dim Result As String
For Ndx = 1 To Len(Selection.Text)
    Result = Result & Asc(UCase(Mid(Selection.Text, Ndx, 1))) - 64
Next Ndx
MsgBox Result

Cordially,
Chip Pearson
http://home.gvi.net/~cpearson/excel

Here is something to get you started:

Sub test2()
svar = "C5"
sText = UCase(Range(svar).Value)
sNewText = ""
For i = 1 To Len(sText)
  icode = Asc(Mid(sText, i, 1))
  If icode >= 65 And icode <= 64 + 26 Then
  sNewText = sNewText & Asc(Mid(sText, i, 1)) - 64
  Else
    sNewText = sNewText & "*"
  End If
Next i
Range(svar)(1, 2).Value = sNewText
End Sub

You will have to sort out how you want to handle case, special
characters and numbers.  

Regards,
Tom Ogilvy

1) Here's sort of a start:
=CODE(UPPER(MID(A3,1,1)))-64&CODE(UPPER(MID(A3,2,1)))-64
This is the most direct and simple approach. Unfortunately, a formula has no
convenient way of knowing how many characters are in the string, so you'll
probably run into problems. Potentially, you can solve them by making the
formula look at enough letters to cover the longest case, and by putting a
blank when the return value for a particular character is invalid, as in the
6th character of a 5-character string, but that is tedious at best. (You
could TRIM that result if you decide to go that way.)

2) Another option which is probably a bit slower in terms of performance but
a bit easier to manipulate:
=SEARCH(UPPER(MID(A3,1,1)),Alpha)&SEARCH(UPPER(MID(A3,2,1)),Alpha)
(This assumes a range named "Alpha" containing the alphabet.)
I don't think this is a great option but I provide it as an alternative
which may prove applicable to your situation.

3) There's always VBA!

Function CodeIt(rngName As Excel.Range) As String
    Dim iX As Integer, iVal As Integer

    For iX = 1 To Len(rngName)
        iVal = Asc(UCase(Mid(rngName, iX, 1))) - 64
        If iVal < 1 Or iVal > 26 Then
            CodeIt = CodeIt & "0"
        Else
            CodeIt = CodeIt & CStr(iVal)
        End If
    Next
End Function

Paste the function into a VBA module and use a formula like:

=CodeIt(A1)

Any character outside A-Z is converted to a zero.

Note that it would theoretically be faster to return as a numeric instead of
a string, since the Asc function returns a number and it wouldn't have to be
converted each time to its string equivalent. However, without knowing how
long the string is, it might exceed the numeric capacity, and there's the
issue of leading blanks/spaces/zeroes.

HTH -

-Frank
Microsoft Excel MVP, MCSD
Dolphin Technology Corp.
http://vbapro.com

Greetings from
 _____
 /_|__| Auke Reitsma, Delft, The Netherlands.
/  | \  -------------------------------------
        Remove NO_SPAM_ from my address ...