StrCmt = StrCmt & vbTab & IIf(.Parent Is Nothing, "Not a Parent", "Is a Parent")
StrCmt = StrCmt & vbTab & IIf(.Ancestor Is Nothing, "Not a Parent", "Is a Parent")