Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("tempRO.txt")

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If Not InStr(strLine, "COVXX ") = 0 Then
    FileContentE = Left(FileContentE, InStr(FileContentE, "COVXX") - 1) & vbCrLf & strLine
    End If
Loop

objFile.Close

data,data,data
data,data,data
data,data,data
data,data,data, COVXX 123124123521346247
(eof)