プロシージャの呼び出し、または引数が不正です。

ホッテントリからヤバメな情報が流れてきた。８月１４日のWindows Update 後、VB関連が死亡するらしい。

実はこの現象を８月１５日に確認していた。原因がわからずふて寝しましたが。

再現ソース

Option Explicit

Sub SaigenTest()

    Call a

    Debug.Print "Success!"

End Sub

Private Sub a(ParamArray p())

    'ParramArray の値を引数で渡すと落ちる
    Call b(p)

End Sub

Private Sub b(ByVal v As Variant)
    

End Sub

実行すると以下の場所で「プロシージャの呼び出し、または引数が不正です。」になる。

使用しているWindows 10 は 1803だったので（古い？） KB4512501 が入っているか確認してみるとやっぱり入っていた。

回避方法はなさそうなので試しにアンインストールしてみたところ、正常に動作することを確認した。

作者が確認したところ、RelaxToolsで同様の現象は確認されていませんが、現象が起こるようでしたら、パッチのアンインストールで対応するしかなさそうです。