EXCEL VBA有没有类似vbs execute方法，小弟我写了个vbs程序，移植到VBA中"Execute s " 这句报错

EXCEL VBA有没有类似vbs execute方法，我写了个vbs程序，移植到VBA中"Execute s " 这句报错
Dim fso, ts, s
Const ForReading = 1
Dim DBUser

'读取文件的内容。
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\Autotest\MOC\moc_var.vbs", ForReading,False,-2)
Do While not ts.AtEndOfStream
 s = ts.ReadLine 
 If InStr(s,"DBUser") > 0 Then '当找到moc_var.vbs文件中有DBUser="**"这句语句时
  Execute s '执行该赋值语句
 End If
Loop

MsgBox DBUser

ts.Close
Set reg = Nothing
Set ts = Nothing
Set fso = Nothing


移植到VBA中，Execute s 这句报错，提示“缺少子程序、函数或属性”
查了下EXCEL中的帮助文档，貌似不支持这样的用法。

VBA中是如何解决这种执行字符串表达式的问题的，请各位帮忙
 

------解决方案--------------------------------------------------------
VBA可以调用EXECUTE的
不过只能调用宏表函数的EXECUTE
------解决方案--------------------------------------------------------
Excel VBA不支持这种用法。