VB 6 property does not retain value - vb6

Question

I created a property in a class module called clsProperties:
Dim blnProduction As Boolean
Public Property Get IsProduction() As Boolean
IsProduction = blnProduction
End Property
Public Property Let IsProduction(ByVal vNewValue As Boolean)
blnProduction = vNewValue
End Property
I then call the Let statement from a form:
Private objPropertiesAs New clsProperties
'Determine if we're in production
If (Environ("computername")) = "WS0006" Then
objPropertiesAs.IsProduction = True
Else
objPropertiesAs.IsProduction = False
End If
I test the code using "WS006" and IsProduction will be equal to True. However, when I try to access the Get in clsProperties
IsProduction is equal to False.
If IsProduction Then
Debug.Print "Prod"
Else
Debug.Print "Dev"
End If
Please help!

Answer 1

You've set up your clsProperties module correctly. But there are some problems with the rest of the code as published (as it is, it won't compile, so you haven't cut and pasted actual code). Here's a stab at a fix:
Private objProperties As New clsProperties
objPropertiesAs.IsProduction = (Environ("computername") = "WS0006")
Debug.Print Iif (objProperties.IsProduction, "Prod", "Dev")
I've done some things to make your code more concise. The only substantive difference between my code and yours is that yours doesn't reference the object with which your IsProduction property is associated when you do the Get. I don't know why you aren't getting an "Object Required" error there, but perhaps you have an On Error Resume Next in your code somewhere.