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

以下是两组数据，第一列是原数据，第二列是我想希望达到的数据，就是做一个按钮转换功能，在原数据组中插入了分隔符，求代码，谢谢！

Select Case e.DataCol.Name
    Case "ID"
        If  e.DataRow("ID").length = 4 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4)
        ElseIf e.DataRow("ID").length = 7 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4) & "," &  e.DataRow("ID").substring(5,3)
        ElseIf e.DataRow("ID").length = 10 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4) & "," &  e.DataRow("ID").substring(5,3) & "," & e.DataRow("ID").substring(8,3)
        ElseIf e.DataRow("ID").length = 13 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4) & "," &  e.DataRow("ID").substring(5,3) & "," & e.DataRow("ID").substring(8,3) & "," & e.DataRow("ID").substring(10,3)
        End If
End Select

13位的设置是正确的，其他都是错误的，其他的位置提示：

调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length

我是要保持前四位不变，就是说格式分段，一定是：####，###，###，###，是4333333一直下去