你去看看是不是多了回车或者多了空格。
Dim Values() As String
Values = e.Form.Controls("TextBoxhaoma").value.split(Chr(13)) '根据回车符拆分数组
For Index As Integer = 0 To Values.Length - 1
Dim r As Row = Tables("mt").AddNew
r("destination") = Values(Index).replace(chr(10), "").replace(" ", "")
r("content") = e.form.controls("textboxzhengwen").text
r("userSendDate") =Date.now()
Next