Version 1.0 Class
Attribute VB_Name = "Class1"
Attribute VB_Creatable = True
Attribute VB_Exposed = False
Option Explicit
Dim mForm As New Form1
Dim mData
Public InstanceName

Sub AddText(Text)
    mForm.Print Text
End Sub

Property Get data()
    data = mData
End Property

Property Let data(inData As Variant)
    mData = inData
End Property

