主题：额，问个代码问题。 不知道怎么写标题。

e.Form.Controls("TextBox1").text = “继发出血性肺炎”

For i As Integer = e.Form.Controls("TextBox1").lines.length-1 To 0 Step -1
    For m As Integer = Tables("terms").rows.count -1 To 0 Step -1

If  e.Form.Controls("TextBox1").lines(i).Contains("" & Tables("terms").Rows(m)("词语") &"") = True

mgs（““& Tables("terms").Rows(m)("词语")  &””）
end if

next

next

然后mgs 显示为  “出血”，“出血性肺炎”  但是实际上需要提取的只有“出血性肺炎”。这样的代码改如何写?