請問在VB中呼叫MTS元件交易的問題!(編號：8522)

請問各位先進，我在VB程式碼中(有引用COM+ Service Type Library)利用GetObjectContext來呼叫元件，程式碼如下：
Dim testObj As Test.Func
Dim ctx As ObjectContext
Set ctx = GetObjectContext
Set testObj = ctx.CreateInstance("Test.Func")
請問為什麼都會發生『沒有設定物件變數或With區塊變數』
的錯誤訊息!謝謝!!