[Final do Arquivo Ultrapassado]

Tenho um script (VBScript) que deveria ler a ultima linha de um TXT e somente depois ler a Primeira linha para criar um atalho com o valor da primeira linha mas ocorre que quando o executo ele retorna o seguinte erro:"Final do Arquivo Ultrapassado" "Código: 800A003E".

Pelo que vi pesquisando na internet meu código está lendo a última linha do arquivo de texto mas e depois não retorna para a primeira.

Meu script deveria fazer o seguinte:

1)capturar o valor numérico na ultima linha do "teste.txt"

2)verificar se o valor lido é maior que o número da linha que será lida.

3)Se o valor for maior, Criar um atalho com nome igual ao conteúdo da linha que foi Lida.

"teste.txt":

1. Pasta 1
2. Pasta 2
3. 2

"Criar atalho.vbs"

1. Option Explicit
2. DIM fso, objFSO, objTextFile, i, strLine, objShell, objLink, strEndLine, Response
3. Set fso = CreateObject("Scripting.FileSystemObject")
4. If (fso.FileExists("teste.txt")) Then
6. Const ForReading = 1
7. Set objFSO = CreateObject("Scripting.FileSystemObject")
8. Set objTextFile = objFSO.OpenTextFile("teste.txt", ForReading)
9. '--------------------------------------------------------------
10. Do Until objTextFile.AtEndOfStream
11. strEndLine = objTextFile.ReadLine
12. Loop
13. If strEndLine > 0 Then
14. '--------------------------------------------------------------
15. For i = 1 to 0
16. objTextFile.ReadLine
17. Next
18. strLine = objTextFile.ReadLine
19. Set objShell = CreateObject("WScript.Shell")
20. Set objLink = objShell.CreateShortcut(strLine &".lnk")
21. objLink.TargetPath = "%WINDIR%\system32\wscript.exe"
22. objLink.Arguments = "//e:VBScript programa.exe"
23. objLink.IconLocation = "%WINDIR%\system32\imageres.dll, 4"
24. objLink.Description = strLine
25. objLink.Save
26. objTextFile.Close
27. '------------------------------------------------------------
28. else
29. End If
30. '------------------------------------------------------------
31. else
32. End If
34. WScript.Quit()