Private Sub PropertyZuweisung(ByVal con As String)
        Dim x As Object
        x = c_clsAdressDaten
        Dim o As Object
 
        o = Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(x, _
          Nothing, con, New Object() {}, Nothing, Nothing)
        o = System.Runtime.CompilerServices.RuntimeHelpers.GetObjectValue(o)
 
    End Sub