Chamar propriedades dinamicamente pelo nome da string usando o VB.NET

Atualmente, estou trabalhando em um projeto em que uma seção do código se parece com isso:

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

Continua por um tempo. O código é obviamente detalhado esente como se pudesse ser melhorado. Existe alguma maneira de chamar dinamicamente uma propriedade no VB.NET de modo que algo como isto possa ser feito:

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