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