duda funcion if

[nauzetaleman]

He hecho lo que me dijiste y no se cumple la segunda condicion, es decir si se cumple el WV63, pero no el if del GT00, te dejo el tramo de codigo, a ver si ves donde esta el error, el fichero que cargo es: !WV63|WW60|WW61|WW68|GT00|LX02
1|3|0|928

el valor que necesito que sea lote es el 928 de la segunda linea del fichero.

Este es el tramo de código:

If Index = 0 Then
ruta = "I:\BIZEBA\BCT\BCF\Output\key01.txt"
ruta2 = "I:\BIZEBA\BCT\BCF\Output\suma101.txt"
ruta3 = "I:\BIZEBA\BCT\BCF\Output\record01.txt"
rutaaux = "I:\BIZEBA\BCT\BCF\Temp\record01.txt"
ElseIf Index = 1 Then
ruta = "I:\BIZEBA\BCT\BCF\Output\key02.txt"
ruta2 = "I:\BIZEBA\BCT\BCF\Output\suma102.txt"
ruta3 = "I:\BIZEBA\BCT\BCF\Output\record02.txt"
rutaaux = "I:\BIZEBA\BCT\BCF\Temp\record02.txt"
ElseIf Index = 2 Then
ruta = "I:\BIZEBA\BCT\BCF\Output\key03.txt"
ruta2 = "I:\BIZEBA\BCT\BCF\Output\suma103.txt"
ruta3 = "I:\BIZEBA\BCT\BCF\Output\record03.txt"
rutaaux = "I:\BIZEBA\BCT\BCF\Temp\record03.txt"
End If



MsgBox lin & vbCrLf & "WV63|WW60|WW61|WW68|GT00"

If lin = "WV63" Then

MsgBox "Se cumple la condicion"

datos_recibidos = Mid(linea, 22, 4)

If datos_recibidos = "GT00" Then

MsgBox "Se cumple la condicion"

Line Input #1, strs
Line Input #1, strs

strdato() = Split(strs, "|")

lote = strdato(UBound(strdato))

MsgBox "A: " & lote

End If
End If

MsgBox "A: " & lote

Gracias