「Listプロパティを設定できません。種類が一致しません。」エラーについて

2種類のエラー？

上記エラーの際にネットを探したところNull値を設定しようとしてエラーが発生するという内容があり試しました。

上記のように単純にリストボックスの値にNull値をセットしようとしたところエラーが発生しました。
しかしよく見るとエラーの内容が微妙に違います。

つまりこのエラーはここでいうエラーとは別物の可能性が高いということが分かりました。

エラーメッセージからは判断できないエラー

VBAをやっていると実行時エラーがしばし発生しますが、エラーの内容から解決に近づけない内容もしばしばです。
今回もその類に入ると思います。
表題のエラーの原因はズバリ「文字数オーバー」です。
もっとも、腑に落ちない部分もあるので、他の理由でもこのエラーメッセージが表示されるかもしれない点に注意してください。

試しにこんなコードを実行しました。下記はリストボックスの1行目に文字列を結合し、繰り返し入れています。

これでやるとうまくいきました。

しかし次の部分を変えると失敗します。

従いこのエラーが発生した場合、事前に何文字をListプロパティにセットするのかを事前にIF文などで判断し、文字列を減らすなりすれば回避できます。
ただし、私の認識では文字数制限は「2046文字まで」と記憶しているので、2047文字まで入るというのが少し意味不明である点も合わせて述べておきます。