Try pre-formatting the line before splitting it on spaces (assuming they are spaces and not tabs or some other character:
Code:Do Until InStr(theLine, " ") = 0 ' < double space theLine = Replace$(theLine, " ", " ") ' < make double spaces single spaces Loop




Reply With Quote