Two TextBox controls named TextBox1 and TextBox2.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox2.Text = TextBox2.Text & Chr(KeyAscii)
'To handle keyboard combinations (using SHIFT, CTRL, ALT, and another
'key), or TAB or ENTER, use the KeyDown or KeyUp event.
End Sub
Private Sub UserForm_Initialize()
Move 0, 0, 570, 380
TextBox1.Move 30, 40, 220, 160
TextBox1.MultiLine = True
TextBox1.WordWrap = True
TextBox1.Text = "Type text here."
TextBox1.EnterKeyBehavior = True
TextBox2.Move 298, 40, 220, 160
TextBox2.MultiLine = True
TextBox2.WordWrap = True
TextBox2.Text = "Typed text copied here."
TextBox2.Locked = True
End Sub