すみません、確認したのは下のプログラムでした。

Private _loop As Boolean = True

Private Sub TestA()
Dim addA As AddClass = Nothing
TestB(addA)
addA.addValue(3)
GC.Collect() '←Finalizeは実行されない
_loop = True
While _loop
Application.DoEvents()
End While
addA = Nothing
GC.Collect() '←Finalizeは実行された
_loop = True
While _loop
Application.DoEvents()
End While
End Sub