If you just want a newline to be inserted in TextBox2.Text at that point then use
TextBox2.Text += vbCrLf
Remember to make sure that the Multiline property of the text box is set to true.
I'm not sure your code will actually do what you appear to want it to do though