Hi.. ;)
Put this function in a module..:
'Author: Allen Browne. http://allenbrowne.com. June 2006.
Function ParseWord(varPhrase As Variant, ByVal iWordNum As Integer, Optional strDelimiter As String = " - ", _
Optional bRemoveLeadingDelimiters As Boolean, Optional...