Use code like below
first split by ;
and then substring
Dim a = "<headline>toranto; national</headline>"
Dim ary = a.split(";")
txtbox1.text = ary(0).tostring.substring(ary(0).indexof(">"),ary(0).tostring().length - ary(0).indexof("<"))
txtbox2.text = ary(1).tostring.substring(ary(1).indexof("<"),ary(1).tostring().length - ary(0).indexof("<"))
Happy Coding!
:)