Add A New Line To Existing Text Box Text

Add new text line to multiline text box through code.

Preparations

Add 1 Command Button to your form (named Command1)

Form Code

Private Sub Command1_Click()
Dim NewText As String
    With Text1
'replace 'My New Text' with the Text you want to add       
        NewText = "My New Text"
        .SelStart = Len(.Text)
        .SelText = vbNewLine & NewText
    End With
End Sub


Private Sub Form_Load()
    Text1.Text = "My Initial Text"
End Sub

Go Back