How To Split A Text Based On Two Special Characters

[snb]

I came up with:

Function F_snb(c00)
    F_snb = Split(c00, ">")(0) & ">" & Replace(Filter(Split(Replace(Replace(c00, ">", "/"), ";", "~/"), "/"), "~")(0), "~", "")
End Function