Modules & VBA :: Assign Value To Enumerated Control Property

I want to retrieve and assign values of a control's properties by naming the properties. So for example:

Dim myHeight As Long
Dim myPropertName As String
myPropertyName="Height"
myHeight = 315
Forms!Myform.MyTextBox.Height = myHeight

I can retrieve the value using Eval:

Debug.Print Eval("Forms!MyForm.MyTextBox." & myPropertyName ) gives 315

How can I do the inverse operation, ie.assign the value of a property whose name I have in a string MyPropertyName? I mean other than a brute-force approach with a huge Case.