Invocar dinámicamente propiedades por nombre de cadena usando VB.NET

Actualmente estoy trabajando en un proyecto donde una sección del código se ve así:

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

Continúa por un tiempo. El código es obviamente detallado ysiente como si pudiera mejorarse. ¿Hay alguna manera de invocar dinámicamente una propiedad en VB.NET de modo que se pueda hacer algo como esto?

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

Respuestas a la pregunta(3)

Su respuesta a la pregunta