Rufen Sie Eigenschaften mithilfe von VB.NET dynamisch nach dem Namen der Zeichenfolge auf

Ich arbeite gerade an einem Projekt, in dem ein Teil des Codes so aussieht:

Select Case oReader.Name
    Case "NameExample1"
        Me.Elements.NameExample1.Value = oReader.ReadString
    ....
    Case "NameExampleN"
        Me.Elements.NameExampleN.Value = oReader.ReadString
    ....
End Select

Es geht noch eine Weile weiter. Der Code ist offensichtlich ausführlich und esfühlt sich wie es könnte verbessert werden. Gibt es eine Möglichkeit, eine Eigenschaft in VB.NET dynamisch aufzurufen, sodass etwa Folgendes ausgeführt werden kann:

Dim sReadString As String = oReader.ReadString
Me.Elements.InvokeProperty(sReadString).Value = sReadString