主题：关于单元格内字符串转换为代码

老师您好：

1，如何将单元格内的字符串转换为可执行代码

例如：

Dim str1 As String = Tables("状态栏").Value(0,1)        ’Tables("状态栏").Value(0,1)中的值为： "用户: " & User.Name
Dim Str2 As String = "用户: " & User.Name
'StatusBar.Message1 = Str2
output.show("str1值:  "&str1 & vbcrlf &"str2值:  "& str2 )

但是他们的输出结果不同：

str1值:  "用户: " &  User.Name
str2值:  用户: 开发者

str1的值内的代码执行，我试过了了eval函数、合成表达式cexp()，把字符才分解在重新组合都不行、麻烦老师给予指导，谢谢。