推測で何の根拠もありませんが、
ListBox1.List(ListBox1.ListIndex, 0)　の型が原因になっているのかもしれません。 

実は、現時点ではこちらのPC環境ではエラー無く動きます。
Win10のExcel2010 Excel2013 Excel2019で動作確認してみました。
この環境以外でテストできませんので、エラーになるのか確認できていません。

このコードの一部は2018/9/27に修正を加えているので、この当時に動かしたことがあります。
このとき、お書きのエラーが発生したような気もするのですが、調べようとしたら、すぐに解消されたような記憶があります。
コードの方は弄っていないと思います。
何か更新のタイミング(OSの更新?)でおかしくなったのかな・・・と思ったような記憶がかすかに残っています。
エラーの原因を特定できず申し訳ありません。