Código vb:
Ver originalFunction NumeroFinal(Fichero As String) As Integer
Dim NumFichero As Integer
Dim Linea As String
NumFichero = FreeFile
Open Fichero For Binary As NumFichero
Linea = Input(LOF(NumFichero), #NumFichero)
Close NumFichero
NumeroFinal = Right$(Linea, Len(Linea) - InStrRev(Linea, "|"))
End Function
Fichero="c:\valores.txt"
ValorBuscado = NumeroFinal(Fichero)