Text2PDF サブオブジェクトのインスタンスを作成するために、最初に Toolkit オブジェクトのインスタンスを作成する必要があります。
Set Toolkit = CreateObject("APToolkit.Object")
Set Text2PDF = Toolkit.Text2PDFObject