just pass one of the chosen letters 1

[kruxty]

i have this code:
valor = InStr(inline, "P&quot Or InStr(inline, "S&quot
If valor = 1 Then
Open Text2.Text & "\" & nomefichtxt For Append As #2
Print #2, inline
Close #2
End If

but he only passes me the strings that begin with S, Why?

 

[svagelis]

Instr function returns the position within the target string were the substring exists.
You should modify it as

valor=0
valor = InStr(inline, "P&quot Or InStr(inline, "S&quot
If valor <> 0 Then
Open Text2.Text & &quot;\&quot; & nomefichtxt For Append As #2
Print #2, inline
Close #2
End If