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")
getLastWord = str
Set reg=nothing
End Function
str="1B2A3fdsafdsf32432432"
Response.Write(getLastWord(str)):Response.End()