...
you cannot do the text4=s in the property. what you should do is return the s from the property like this:
adresstext = s
after that you should write the following code in your project
'add a reference in your project to your ActiveX, 'and after that create an instance of it Dim objAX as YourAXName Set objAX = New YourAXName 'now, you can do the following: text4.text = YourAXName.adresstext 'now, release the pointer Set YourAXName = Nothing