Below is where I am at and the issue is with the inputext replaces the information in the box and not appends the text. So what am I doing wrong?
Code: Select all
Dim inputext As String = ""
TextBox1.Text = "Hello World " 'Works as expected
TextArea1.Text = "Line 1" & Chr(10) & "Line 2" 'Works as expected
'Message("Click ok")
inputext = InputBox("Type something")
TextArea1.Text = Chr(10) & inputext ' Want this to be line 3 but it replaces text