Private Property Wert() As Object
        Get
             return ...
        End Get
        Set(ByVal value As Object)
            If TypeOf value Is String Then
                ...
            End If
            If TypeOf value Is Integer Then
                ...
            End If
        End Set
    End Property