How To Split A Text Based On Two Special Characters

[snb]

sub M_snb()
   msgbox F_snb("c.639T>C; p.D213D")
end sub

function F_snb(c00)
  f_snb=split(split(c00,";")(0),"/")(0)
function end