Still if you are sure that your string is always going to follow this pattern and you want to extract the third part then you can use below code.
stringVar array x := split({Table.StringObject},"~");
Local numberVar i;
Local stringVar outputString := "";
For i:=1 to Count(x) do
(
If i=3 then
outputString := outputString + x[i] + Chr(10)
);
outputString;
Regards
Niraj