Public ReadOnly Property MyValue() As Double
  Get
    Return 5000
  End Get
End Property

Function MyFunc() as Double
   Dim MyXLObj
   SET MyXLObj=CreateObject(ClassLibrary1.ComClass1)
 
   MyFunc=MyXLObj.MyValue
 
End MyFunc