Using "Dim As New " cause lazy evaluation @ VBA

Class1.cls

Option Explicit

Private Sub Class_Initialize()
    Debug.Print ("Xが初期化されたよー")
End Sub

Public Sub CookDoodleDo()
    Debug.Print ("こけっこっこー！")
End Sub

Module1.bas

Option Explicit

Sub Test()
    Dim x As New Class1
    Debug.Print ("Dim As New の次の行に移りました。")
    
    x.CookDoodleDo
    Debug.Print ("Test()は終了します。")
End Sub

Sub Test比較例()
    Dim x: Set x = New Class1
    Debug.Print ("Dim As New の次の行に移りました。")
    
    x.CookDoodleDo
    Debug.Print ("Test()は終了します。")
End Sub

Test() と Test比較例()　を走らせてみると
Dim As New を使うと、遅延初期化（遅延評価）されることが確認できます。