TextBox First Line Activation

Hi Friends

I have a procedure that concatenates strings into one text box with new line. When TextBox pop-ups it shows me the last line. Is it possible to make it visible from first line

My code:

Sub ConcTexts()

For Each r In Range("A1").CurrentRegion
    n = n & r & vbNewLine
Next r

frmTextBoxxx.txtConc.MultiLine = True
frmTextBoxxx.txtConc.WordWrap = True
frmTextBoxxx.txtConc.Value = n

frmTextBoxxx.Show

End Sub

Attached file for further analysis. Also screenshot-ed the desired result

Thank you in advance