调用第三个函数时，模块对象无效

Question

我有这个简单的Address类，只有：

  Public street as String
  Public number as Integer

然后，我在模块calle“mdl1”中创建一个实例，并在相同的模块函数上使用它：

Public objectAddress as Address

Public Function f1() As String
  Set objectAddress = New Address
  objectAddress = "5th street" 'this works fine

  If Not isNothing() Then
    f1 = objectAddress.street
  Else
    f1 = vbNullString
  End If

End Function

Public Function isNothing() As Boolean

'When entering here, the objectAddres is ALWAYS Nothing, even though i just assigned a value to the street property...

  If objectAddress is Nothing then
    isNothing = True
  Else
    isNothing = False
  End If
End Function

我在f1()函数上为objectAdrress.street赋值，但是当它进入“ofNothing（）”函数时，objectAddress再次为Nothing。

当控件返回到f1函数时，对象返回一个值，而street属性仍然具有i赋值的值...

那么，模块“属性”是否应该像第一类一样？或者模块内部不存在全局/局部范围？

解决： 尽管没有人明白这个问题，但问题是我正在创建一个与全局对象同名的本地对象，这就是为什么它在进入另一个函数时总是Nothing。