VBA - How to invert/sort line breaks within a cell

[Luthius]

Guys, how can we change the line breaks order within a cell?
For instance, in my cell I have the values:

A1 Cell
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]1st Comment
2nd Comment
3rd Comment
[/TD]
[/TR]
</tbody>[/TABLE]


I want to invert to:
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]3rd Comment
2nd Comment
1st Comment[/TD]
[/TR]
</tbody>[/TABLE]

For a more complex case, how to Sort based on the first character of the line?

A1 Cell
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Watermelon
Apple
Papaia
Strawberry[/TD]
[/TR]
</tbody>[/TABLE]

Sorted values in the A1 Cell
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Apple
Papaia
Strawberry
Watermelon[/TD]
[/TR]
</tbody>[/TABLE]

 

[Rick Rothstein]

For your first question, this code will invert the lines of text within the cell that is selected at the time it is run...

Sub InvertWithinSelectedCell()
  Dim X As Long, ArrIn As Variant, ArrOut As Variant
  ArrIn = Split([B][COLOR="#0000FF"]ActiveCell[/COLOR][/B].Value, vbLf)
  ReDim ArrOut(0 To UBound(ArrIn))
  For X = 0 To UBound(ArrIn)
    ArrOut(UBound(ArrIn) - X) = ArrIn(X)
  Next
  [B][COLOR="#0000FF"]ActiveCell [/COLOR][/B]= Join(ArrOut, vbLf)
End Sub

If you really meant you only wanted to do this to cell A1, change the highlighted ActiveCell text to Range("A1").

 

[CalcSux78]

For the second question: https://www.mrexcel.com/forum/excel-questions/1100113-sort-contents-within-1-cell.html

 

[Luthius]

Amazing solution. Thank you very much

Mr Rick and also for the the second solution Mr CalcSux78.