Public Function getArrSplitLenB(istr$, arr_cnt As Long, ilen As Long) As Variant ReDim ret(arr_cnt - 1) ret(0) = LeftA(istr$, ilen) 'ariawase function Dim i%, wstr$: wstr$ = istr For i = 1 To arr_cnt - 1 wstr$ = Replace(wstr$, ret(i - 1), …