Private myItem As Variant 'Wie wissen hier nicht, ob ein Objekt oder ein anderer Datentyp daherkommt Public Sub setItem(ByRef iItem As Variant) ref myItem, iItem End Sub Public Property Get tName() As String tName = TypeName(myItem) End Property