Set reference to
Microsoft Transaction Server Type Library.

UI form
------------
Private Sub Command1_Click()

  Dim objGraphClass As excelGrapher.graphClass

  Set objGraphClass  = CreateObject("excelGrapher.graphClass")

  objGraphClass.createGraph()

  Set objGraphClass = Nothing

End Sub

DLL
---------
Option Explicit

#Const mts = 0
Public Function CreateGraph()

  Dim objGraphClass As excelGrapher.graphClass
  Dim objContext As MTxAS.ObjectContext

 #If mts Then
    Set objContext = GetObjectContext
    Set objGraphClass =
objContext.CreateInstance("excelGrapher.graphClass")
  #Else
    Set objGraphClass = CreateObject("excelGrapher.graphClass")
  #End If

End Function