Sub WSExequte(Expression As String)
On Error Resume Next
Dim WSCtl As Object    'New MSScriptControl.ScriptControl
Dim strProgram As String
    strProgram = "Sub Test" & vbCrLf & Expression & vbCrLf & "End Sub"
    Set WSCtl = CreateObject("MSScriptControl.ScriptControl")
    WSCtl.AllowUI = True
    WSCtl.Language = "VBScript"
'    sc.ExecuteStatement
    WSCtl.AddCode strProgram
    WSCtl.Run "Test"
 If Err.Number <>  0  Then
    MsgBox Err.Description, vbCritical, "Windows Scripting Host"
 End If
    Set WSCtl = Nothing
End Sub