VBA EXCEL：TypeOf无法与If一起正常使用

Question

我正在使用typeOf来检查设置为Object的变量类型是否为用户定义类型，甚至将该变量设置为正确的用户定义类型typeOf仍返回false。

如何解决此问题？还有另一种方法可以将泛型与对象的特定类型进行比较吗？

Dim doc As planDOC: Set doc = createObj.doc(config.getDOC, New planDOC, config, rlt)

Public Function doc(str As String, ByVal var As Object, Optional ByVal var2 As Object, Optional ByVal var3 As Object) As Object
    Dim obj As baseDOC: Set obj = New baseDOC
    obj.InitializeProperties var:=str
    If TypeOf var Is planDOC Then
        var.InitializeProperties var:=obj, var1:=var2, var2:=var3
        Set doc = var
        Exit Function
     End If
    If TypeOf var Is formDOC Then
        var.InitializeProperties var:=obj, var2:=var2, var3:=var3
        Set doc = var
    End If
End Function