主题：求助：字符串中追加分隔符的执行代码

我这个比较笨

主要是这个SubString

遍历所有的行                                     for each dr as datarow in ...

每一行的字符长度与4 7 10 13 比较        if dr.isnull("转换前内容1") andalso dr("转换前内容1").length =4       ......

截取（例如13位）                               dr("转换前内容2")=dr("转换前内容1").substring(0,4) & "," &  dr("转换前内容1").substring(5,3) & "," & dr("转换前内容1").substring(8,3) & "," & dr("转换前内容1").substring(10,13)