Private Class TestKlasse
Private _FamillyName As String
    Public Property FamillyName() As String
        Get
            Return _FamillyName
        End Get
        Set(ByVal value As String)
            _FamillyName = value
        End Set
    End Property
 
Private _Name As String
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property
End Class

 
'Aufruf der Klasse in einem Formular
dim TestEntry(1000) as TestKlasse

 
Dim Variablename as String = "FamillyName"
 
For each ClassElement as Test
 
if ClassElement.Name = Varialename then
ClassElement.Value = "Müller" 
next