Bardが提案してくれたQuickSortを貼り付けてみましたが…。

自分のVBとは、不適合のようです。下のように変えてみました。

すると、驚くなかれです！

疑問は、自分のVisual Basicは古い？です。

追記）Visual Studio2022を更新しましたが、同じところでエラーでした。Swapという関数は無いようですし、in Range()も無いようです。VBAなら有るのかな？