主题：请帮忙列内容分割错误提示，谢谢

我想把表A的第一列的内容分割左边5个字符插在第二列，余割下字符插在第三列

For Each r As Row In Tables("表A").Rows
   DataTables.Save
    Dim s As String= r("第一列")
    Dim d As Row =Tables("表A").AddNew() 
    d("第二列")=s.SubString(0,4)
    d("第三列")=s.SubString(4,(s.Length-4))
Next