创建一个类的集合和一些对象

Question

我有这个Excel VBA代码，但我只是不了解控制流程是如何工作的。它使用某种巧妙的技巧。有人可以帮我填写详细信息吗？

基本上，代码创建一个集合，它从“ cls_FX”类创建一些对象，并用对象填充该集合。然后有一个我不明白的测试。看起来像这样。据我所知，字符串“ Test”没有添加到集合中。有人可以解释代码吗？奇怪的测试Err.Number = 0的策略是什么？为什么用0进行测试？

cls_FX：

Option Explicit
Public str_fx                       As String
Public col_Years                    As New Collection
Public str_Test                     As String

代码：

var_FX_Array = Array("USD", "GDP", "EUR")
For j = 0 To 3
    Dim ci_cls_FX As New cls_FX
        ci_cls_FX.str_fx = var_FX_Array(j)
        col_FX.Add ci_cls_FX, ci_cls_FX.str_fx
        Set ci_cls_FX = Nothing
Next j


str_fx = "USD"
Err.Clear
col_FX(str_fx).str_Test = "Test"
If Err.Number = 0 Then
    str_Year = .Offset(i, 2)
    ....