Dim host As New MSScriptControl.ScriptControlClass
 
        host.Language = "VBScript"
        host.AddCode("Sub main" & vbCr & "Msgbox(""VBARCHIV_VB-SCRIPT"")" & _
          vbCr & "End Sub")
        host.Run("main")