ActiveSheet.Shapes("Text Box 1").select
MyVariable = selection.characters.text
tmpArr = Split(TextBox1.Value, Chr(13))
If UBound(tmpArr) - 1 < 9 Then
MsgBox "There aren't 10 lines of text in TextBox1!"
Exit Sub
Else
TextBox2.Value = Mid(tmpArr(9), 2, Len(tmpArr(9)) - 1)
End If
TextBox2.Text = Split(Textbox1.Text & String(10, vbCr), vbCr)(9)
Sorry, this is a userform textbox which has 10 lines of text that have been retrieved from cells on a sheet