Dim x, cars x = 0 cars = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\testenv\example.txt", 1).ReadAll, vbcrlf) Do While x < ubound(cars) If cars(x) = "Audi" Then Exit Loop x = x + 1 Loop