直接替换即可
Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")tb2.value = tb1.text.replace(",", vbcrlf)