If I add these declarations:
    Dim DT
    Dim ar As Variant
    Dim arr As Variant
    Dim var As Variant
    Dim j As Long
    Dim i As Long
    Dim n As Long
    Dim Str As String
it runs without a hitch up to a length of 32767 characters in any cell.