ScriptControl

Option Explicit
Dim mssc As New ScriptControl
Private Sub Form_Load()
mssc.Language = "vbscript"
MsgBox mssc.Eval("Sqr(3^2+4^2)")
End Sub

ScriptControl對象 需要引用 MicroSoft Script Control 1.0