宣言と同時にNewでは、Initializeは働かない（失敗談）

とあるクラスモジュール（Class1）を作成した。
エッセンスだけ書くと、こんな感じだ。

Private Sub Class_Initialize()
    MsgBox "!"
End Sub

そして標準モジュールにおいて、つい鈍らして、宣言と同時にNewしてしまった。

Sub test()
    Dim Class As New VBAProject.Class1
End Sub

ところが、期待していた↓が表示されない。

何でだろう？色々と調べていたら、thomさんのブログで既に紹介されていた。
thom.hateblo.jp

なるほど、そうなのね。
ということで私も、これからは宣言とNewは必ず分けると、心に誓った次第です。

Sub test()
    Dim Class As VBAProject.Class1
    Set Class = New VBAProject.Class1
End Sub

参考まで。