Nancy,
This line of code from your solution:
lcName = RTRIM(STRTRAN(CHRTRAN(CHRTRAN(lcName, CHR(10), ' '), CHR(13), ' '), ' ', ' '))
would be faster done like this:
vfCRLF = chr(13) + chr(10) && don't use #define which is going to at runtime redo the concatenation over and over
lcName = RTRIM(STRTRAN(CHRTRAN(lcName, vfCRLF, ' '), ' ', ' '))
There are some other optimizations that could be done if VFP is proving to be way slower than VB.