Just add a textbox (txtEval), a command button (cmdEval), a reference to the Microsoft Script Control 1.0 and here you go :
VB Code:
Private Sub cmdEval_Click() Dim objSC As New MSScriptControl.ScriptControl objSC.Language = "javascript" MsgBox objSC.Eval(txtEval.Text) End Sub