Private Sub Command1_Click() Text1.SelStart = Len(Text1.Text) Text1.SelText = "strNewLine" & vbCrLf End Sub