主题：分割循环

你想表达什么呢？分割以后，取什么值？

代码

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.Replace("<BR>","@").Split("@")

For Each part As String In parts
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("第一列") = part
Next