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