Pasting data from text box to cell with VBA

[Joon16]

I am using the following code to paste a text box into a cell and it is working fine, but I would like the text broken out into multiple cells rather than all in 1 cell. How can I change the code to do that?

For example, the text box has data like this (all in 1 text box named Text Box 13):

Explanation:
A: input explanation here
B: input explanation here
C: input explanation here

All of this data is currently being copied to cell AE2, however, I would like to have "Explanation" in cell AE2, "A: input explanation here" in cell AE3, "B: input explanation here" in cell AE4, etc.

Dim txBox As Shape
Set txBox = ActiveSheet.Shapes("Text Box 13")

Range("AE2").Value = txBox.TextFrame.Characters.Text

Thank you all in advance!

 

[Micron]

Should be easy enough if there's only 4 lines, but I imagine that's not the case? If so, only slightly more difficult.

 

[Joon16]

Unfortunately not only 4 lines. There are closer to 50.

 

[Micron]

What matters is how the lines are created. If each line ends with a carriage return/line feed then this should work.

Dim i As Integer
Dim sParts() As String, strIn As String

strIn = TextBox1.Text
sParts = Split(strIn, vbCrLf)
For i = 0 To UBound(sParts, 1)
     Range("AE" & i + 2) = sParts(i)
Next

I don't have Sub End Sub because I don't know how you want to trigger the code.