Set objFS = CreateObject("Scripting.FileSystemObject")
Set objF = objFS.OpenTextFile("c:\test.txt", ForReading, False)
arrA = Split(objF.ReadAll, vbCRLF)
		
For i = 14 To (Ubound(arrA) - 3)
arrB = Split(strZipSpaces(arrA(i)))

strInt = strInt & arrB(1) & " "
strSec = strSec & arrB(2) & " "
strTrans = strTrans & arrB(3) & " "
strMB = strMB & arrB(4) & " "
strBand = strBand & arrB(5) & " "
strMbs = strMbs & arrB(6) & " "
strSendRec = strSendRec & arrB(7) & " "

strInt = strInt & vbCRLF
strSec = strSec & vbCRLF
strTrans = strTrans & vbCRLF
strMB = strMB & vbCRLF
strBand = strBand & vbCRLF
strMbs = strMbs & vbCRLF	
strSendRec = strSendRec & vbCRLF
Next

Function strZipSpaces(ByVal strTest)
While InStr(strTest, "  ") > 0
    strTest = Replace(strTest, "  ", " ")
Wend
strZipSpaces = strTest
End Function