baseText = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh"
    
    For i =  1  To Len(baseText)
        newText = newText & Mid(baseText, i,  1 )
    Next i
    
    newText = Replace(newText, " ", "")
    If Replace(newText, ",", "") = "" Then Exit Sub
    
    AllTextArray = Split(newText, ",")
    
    ReDim MainArray( 1  To  3 ,  1  To Len(Replace(newText, ",", "")))
    
    For i = LBound(AllTextArray) To UBound(AllTextArray)
        If IsNumeric(AllTextArray(i)) Then
            IndexNumeric = IndexNumeric +  1 
            MainArray( 1 , IndexNumeric) = AllTextArray(i)
        Else
            IndexWord = IndexWord +  1 
            MainArray( 2 , IndexWord) = AllTextArray(i)
        End If
    Next i
    
    If IndexNumeric > IndexWord Then MainIndex = IndexNumeric Else MainIndex = IndexWord
    
    For i = LBound(MainArray) To MainIndex
         MainArray( 3 , i) = Len(MainArray( 1 , i)) + Len(MainArray( 2 , i))
    Next i
    
    If MainIndex >  0  Then
        ReDim Preserve MainArray( 1  To  3 ,  1  To MainIndex)
        ActiveSheet.Range(Cells( 1 ,  1 ), Cells( 3 , MainIndex)) = MainArray
    End If

    Dim i As Long, j As Long
    Dim baseText As String, newText As String
    Dim AllTextArray() As String
    Dim MainArray() As Variant
    Dim IndexWord As Long
    Dim IndexNumeric As Long
    Dim MainIndex As Long