READING TEXT FILE

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("abc.txt", ForReading)

strContents = objFile.ReadAll
objFile.Close

i = False

Do Until i = True
intLength = Len(strContents)
If intLength < 28 Then
Exit Do
End If
strLines = strLines & Left(strContents, 28) & vbCrLf
strContents = Right(strContents, intLength - 28)
Loop

Wscript.Echo strLines