Using VB, a text line read in is not yielding correct record length ... any ideas for this newbie?

I am reading in a file containing records of variable length ... some of which are quite long (over 4096 characters).  For these records, I am wishing to handle differently than those that are less than 4096 characters in length.  The problem is with the Len().  It is not yielding the correct length for me on these long records.  I am attaching code and input file.  
Thanks in advance.  Brad.

FileToDelete = ("WCR-PreSort.txt")
    
    If objFSO.FileExists(FileFolder & FileToDelete) = True Then
        Dim objOutputFile
        Set objOutputFile = objFSO.CreateTextFile(FileFolder & FileToDelete, True)
        objOutputFile.Close
        objFSO.DeleteFile (FileFolder & FileToDelete)
    Else
        ' MsgBox "Msg from Form's VB Code ... File(s) do not exist."
    End If
 
    Dim SourceNum, DestNum, RecLength As Integer
    Dim ReadLine, strText As String
    
    SourceNum = FreeFile()
    Open "C:\Case Reports\Access Data\WCR-Merged2.txt" For Input As SourceNum
    
    DestNum = FreeFile()
    Open "C:\Case Reports\Access Data\WCR-PreSort.txt" For Append As DestNum
    
    Do While Not EOF(SourceNum)
    Input #SourceNum, ReadLine
    RecLength = Len(ReadLine)
    If RecLength > 4095 Then
        strText = "Due to content length, this text cannot be viewed here."
    Else
        strText = ReadLine
    End If
    Print #DestNum, strText
    Loop
 
Exit_RunCommandPreSort_Click:
    Close #DestNum
    Close #SourceNum
    
    Exit Sub

Select all Open in new window

WCR-Merged2.txt