Dim TextIn As String = ""
    Dim MeineTextBox As New TextBox
 
    Public Property TextAusUC() As String
        Set(ByVal value As String)
            TextIn = value
            meinetextbox.text = value
        End Set
        Get
            If MeineTextBox.Text = TextIn Then
                Return TextIn
            Else
                Return MeineTextBox.Text 'Breakpoint ??
            End If
        End Get
    End Property