When typing in a text box the text goes past the end of it not to the next line, I was suggested this piece of code:

Text1.Text = Text1.Text & "new text"
Text1.SelStart = Len(Text1.Text)

But it does not work, Can someone help?