Okay, it might be because I put the new code in the wrong order, but this chunk of code is giving me an invalid call procedure or argument.
Specifically it is the sixth line down of this chunk.
Set objFile = objFSO.OpenTextFile(sFileName)
Do Until objFile.AtEndOfStream
sContents = objFile.ReadLine
sColName = Left(sContents, 4)
If bDesc = True And sColName <> "End" Then
sDesc = sDesc & Right(sContents, (Len(sContents) - 5))
Select Case sColName
sTopic = Right(sContents, (Len(sContents) - 6))
bDesc = True
sDesc = Right(sContents, (Len(sContents) - 5))
bEnd = True
bDesc = False