Public Sub ChangeNewObject(ByRef objTstR As CTestObject, _
                           ByVal objTstV As CTestObject)

Dim objTestR As New CTestObject, objTestV As New CTestObject
Dim lngAddrR As Long, lngAddrV As Long
Dim strMsg As String

objTestR.Value = 110
lngAddrR = ObjPtr(objTestR)

objTestV.Value = 120
lngAddrV = ObjPtr(objTestV)

Set objTstR = objTestR
Set objTstV = objTestV

End Sub