エクセル 改行入りのセルを分割し、文字数で折り返したい

Question

前提・実現したいこと

外部システムで入力されたものをエクセルで加工しているのですが、
セルの中で改行されています。
それを改行ごとに列に分割し、なおかつ40文字を超過した場合には、下のセルに折り返すようなツールを検討しています。

自身でできたこと

Sub Test1()
Dim arBuf, i As Long

arBuf = Split(Range("B2").Value, vbLf)
i = UBound(arBuf)
Range("B4").Resize(i + 1).Value = _
     WorksheetFunction.Transpose(arBuf)
End Sub

改行で分割するところまでできました。
文字数の判定の箇所が良く分からず困っています。

補足情報（など）

Office2013

よろしくお願いいたします。

Answer 1

次の内容をコピーペして試して見てください。
※「j = j + 1」の配置を1行上にすると、Range("B4")から書き込まれます。

    With Range("B4")
        For Each L In Split(Range("B2").Value, vbLf)
            For i = 1 To Len(L) Step 40
                .Offset(j, 0).Value = Mid(L, i, 40)
                j = j + 1
            Next i
        Next
    End With