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

[Rick Rothstein]

Here is a macro that does what I think you want...

Sub ParseMedicalCodes()
   With Range("A1", Cells(Rows.Count, "A").End(xlUp))
     .Copy .Offset(, 1)
     .Offset(, 1).Replace ";*", "", xlPart
     .Offset(, 1).Replace ">*/", ">", xlPart
   End With
 End Sub