'A.BAS '#Uses "Module1.BAS" Sub Main Debug.Print Value '"Hello" EndSub 'Module1.BAS 'File|New Module|Code Module 'Edit|Properties|Name=Module1 Option Explicit Private mValue As String PropertyGet Value() As String Value = mValue EndProperty 'this sub is called when the module is first loaded PrivateSub Main mValue = "Hello" EndSub