Function getLastWord(str) 
Set regEx = New RegExp 
regEx.Pattern = "(.*)([a-zA-Z])[^a-zA-Z]*" 
regEx.IgnoreCase = false 
regEx.Global = True 
str = regEx.Replace(str,"$2") 
...
Function getLastWord(str) 
Set regEx = New RegExp 
regEx.Pattern = "(.*)([a-zA-Z])[^a-zA-Z]*" 
regEx.IgnoreCase = false 
regEx.Global = True 
str = regEx.Replace(str,"$2") 
...