我从网络上复制一段文字，有好几个段落，复制到一个文本框，如何实现把文本框里面的内容按段落添加到一个表中的列，每一段添加一行数据，如果复制的那段文字有三个段落，就新增三行，每一段内容一行数据。怎么实现？
dim s as string = e.form.controls("文本框1").text
dim ss() as string = s.replace(vbcr,"").split(vblf)
for each a as string in ss
dim r as row = tabels("a").addnew
r("第一列")=a
next