Folks,

I need to change the Do loop below to a For loop reason being that Do loop
as structured below grabs the 1st instance of the string whereas I want the
last instance of the string and I think For loop will let me do that but I am
getting an error.

Do Loop (ORIGINAL):

Do While Not objTechAttrFile.AtEndOfStream
strLine = objTechAttrFile.Readline

If InStr(strLine, "tech.tech") < 0 Then
Buf() = qc_Split(strLine)
TechFileVersion = Buf(3) 'get version of tech file to open
Exit Do
End If

Loop

Issue above is that I can't think i.e. can't figure out how to change to For
loop without getting an error. Here's my for loop to get the last instance
of string tech.tech in the file but I get an error.

For Loop (DOESN'T WORK):

For tech_attribute_file_lines = 1 To objTechAttrFile.AtEndOfStream
strLine = objTechAttrFile.Readline

If InStr(strLine, "tech.tech") < 0 Then
Buf() = qc_Split(strLine)
TechFileVersion = Buf(3) 'get version of tech file to open
End If

Next tech_attribute_file_lines

What's wrong with the FOR loop? Help is appreciated