主题：分割循环

Dim Tel As String = "?&nbsp;2014年03月30日 12:18 配達は終了致しました。<BR>↑&nbsp;2014年03月30日 仙台南営業所から配達に出発致しました。<BR>↑&nbsp;仙台南営業所でお預かりしております。<BR>↑&nbsp;2014年03月28日 18:44 ご不在でしたので、お預かりしております。<BR>↑&nbsp;2014年03月28日 仙台南営業所から配達に出発致しました。<BR>↑&nbsp;2014年03月27日 15:29 ご不在でしたので、お預かりしております。<BR>↑&nbsp;2014年03月25日 19:27 城西営業所を出発致しました。<BR>↑&nbsp;お荷物をお預かり致しました。"

Dim Parts() As String = Tel.Split("<BR>")

想用 <br> 做分割， 然后放到表A 第一列里，···怎么做呢/   <br>数量不确定的情况下   怎么做循环呢？