You can do something like (test file "E:\Testxxx.txt"):
Dim sString As String = Nothing
Using sr As New StreamReader("E:\Testxxx.txt")
sString = sr.ReadToEnd()
End Using
Dim sSubString = sString.Substring(sString.LastIndexOf("|") + 1)
Console.WriteLine(sSubString)