An alternative:

Code:
Function F_snb(c00)
   F_snb = Trim(Replace(Join(Filter(Split("|~" & Join(Filter(Split(c00), "@"), "|~"), "|"), "~@", False)), "~", ""))
End Function