蓝老师，请教字符串的分拆问题，一列中字符串中间以空格相隔，进行分拆以下代码可以实现，如字符串地址电话中间以换行相隔(在一个单元格里)，代码怎样修改一下，请蓝老师指导

\'字符串分拆，一列分成两列

If e.DataCol.Name = "地址电话" Then \'是地址电话发生变化列

    If e.DataRow.IsNull("地址电话") Then \'地址电话是否为空   

        e.DataRow("地址") = Nothing \'如果为空,则清除地址   

        e.DataRow("电话") = Nothing \'如果为空,则电话   

    Else

        Dim dr As DataRow = e.DataRow

        Dim Tel As String = dr("地址电话")

        Dim Parts() As String = Tel.Split(" ") \'地址与电话中间以空格相隔

        dr("地址") = Parts(0) \'否则从地址电话列中提取地址   

        If Parts.length > 1 Then

            dr("电话") = Parts(1) \'否则从地址电话列中提取电话       

        End If

    End If

End If