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