Splting a long string, at the spaces, with a max length of 24

Hi team,

How do you spilt a long string e.g.:

Some cities, like New York, Las Vegas, and Paris have well-deserved reputations

To read:

Some cities, like New
York, Las Vegas, and
Paris have well-deserved
reputations

so the Max length of each new string is 24.

Ok found the answer myselft:

Sub SpliteAtSpace()

Dim sLong As String
Dim aSplit 
Dim iCounter As Variant
Dim sLine1 As String
Dim sLine2 As String
Dim bLine2 As Boolean

    bLine2 = False
    sLong = "Some cities, like New York, Las Vegas, and"
    
    aSplit = Split(sLong, " ")
    
    For Each iCounter In aSplit
    
    If Len(sLine1 & " " & iCounter) < 24 And Not bLine2 Then
    
        sLine1 = sLine1 & " " & iCounter

    Else
            
        bLine2 = True
        sLine2 = sLine2 & " " & iCounter

    End If
    
    Next iCounter    
    MsgBox (sLine1)
    MsgBox (sLine2)
    
End Sub