I found a neat little script here @ tek-tips, but I don't fully understand the script. I know what it doest but don't know why. [ponder]
data = " 21"",""BOB D."",""StePH_hens"",""SA052"",""CALL REAL ESTATE"",""CALL01"",""(804)411-2222"" "
...
.Pattern = "\b(\w)(\w*?)\b"
...
Function...