I tried this

Dim oSC As ScriptControl
Set oSC = New ScriptControl
oSC.Language = "VBScript"
Dim y As String
y = "AutomationLetterWordDemo.txtCustomerName.Text"
y = oSC.Eval(y)

and this

Dim oSC As ScriptControl
Set oSC = New ScriptControl
oSC.Language = "VBScript"
Dim y As String
y = "AutomationLetterWordDemo.txtCustomerName.Text"
y = oSC.Eval("y")

and this

Dim oSC As ScriptControl
Set oSC = New ScriptControl
oSC.Language = "VBScript"
Dim y As String
y = oSC.Eval("AutomationLetterWordDemo.txtCustomerName.Text")

All three produce null strings ( "" )

AutomationLetterWordDemo.txtCustomerName.Text is a valid control on the form on top of the code.



Where is need to go with this is to get a value from a recordset, using something like this...

Dim oSC As ScriptControl
Set oSC = New ScriptControl
oSC.Language = "VBScript"
Dim y As String
y = oSC.Eval(rstReplaceCodes.Fields("ReplaceWithFieldName").Value)

where rstReplaceCodes.Fields("ReplaceWithFieldName").Value is equal to another value in a record set ( "rstSQLResultSet.Fields("ColumnName").Value" )

Thanks