In[14]:=
  ToNumericForm[m_String]:= Module[ {text},
                text=ToLowerCase[m];
                If[Length[StringPosition[text," "]]>=1,
                text= StringReplace[text," "->""]];
                text=ToCharacterCode[text]-97;
                Return[text]]
                 
                

  General::spell1: 
Possible spelling error: new symbol name
"text" is similar to existing symbol "Text".


;[o]
General::spell1:
Possible spelling error: new symbol name
"text" is similar to existing symbol "Text".

Up to Shift Cipher: