Option Explicit
 
Private Obj_RunExpr             As Object           '   //  Variable Local
Private Const cVBS              As String = "VBScript"
Private Const cJVS              As String = "javascript"
 
Private Sub Command1_Click()
'   //  Ejemplo Creado por BlackZeroX ( http://InfrAngeluX.sytes.net/ )
    If Not Obj_RunExpr Is Nothing Then              '   //  Se creo el objeto interprete?.
        If Option1(0).Value Then        '   = If Option1(0).Value = true Then
            Obj_RunExpr.Language = cVBS             '   //  Puede ser VBScript o javascript.
        ElseIf Option1(1).Value Then    '   = ElseIf Option1(1).Value = true Then
            Obj_RunExpr.Language = cJVS             '   //  Puede ser VBScript o javascript.
        Else
            Call Interaction.MsgBox("No se a seleccionado el lenguaje a interpretar")
            Exit Sub                                '   //  Salimos del proceso.
        End If
        Debug.Print "El MsgbBox respondio: " & Obj_RunExpr.eval(Text1.Text)
    End If
End Sub
 
Private Sub Form_Load()
    Set Obj_RunExpr = CreateObject("ScriptControl") '   //  Creamos el objeto
    With Option1(0)
        .Caption = cVBS
        .Value = True
    End With
    Option1(1).Caption = cJVS
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set Obj_RunExpr = Nothing                       '   //  Descargamos el Objeto de la memoria
End Sub
 
Private Sub Option1_Click(Index As Integer)
    Select Case Index                               '   //  Se selecciona el motor interprete
        Case 1
            Text1.Text = " prompt(""Introduzca su nombre""); " & vbCrLf
        Case 0
            Text1.Text = " MsgBox(""Da click en algun boton de este MsgBox()"",vbCritical + vbYesNoCancel +vbDefaultButton1 ,""Error grave"") "
        Case Else
    End Select
End Sub