再次请教字符串问题

表A中有“货物名称”列，该列的值是类似“*塑料制品*定制波纹管”我想进行拆分“货物”“名称”两列，主要取“*”最右侧的字符串，即 “名称”的值应为“定制波纹管”，即最后面的“*”后的字符串，但我用下面的代码得到的是“塑料制品”是第一个“*”后面的字符串。请教老师怎样修改代码才能获取最后面的“*”后的字符串呢

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

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

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

        If Parts.length > 1 Then

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

        End If

        If Parts.length > 2 Then

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

        End If

    End If

End If