Imports System.Windows.Forms
Imports System.Diagnostics
Public Class WinForm
    Inherits System.Windows.Forms.Form
    Private btn As New Button()
    Public Sub New()
        MyBase.New()
        MyBase.Topmost = True
        MyBase.Text = "Запуск скрипта из VB.NET"
        btn.Dock = DockStyle.Fill
        btn.Text = "Нажмите для запуска скрипта"
        AddHandler btn.Click, AddressOf btn_Click
        MyBase.Controls.Add(btn)
        MyBase.Show()
    End Sub
    Public Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim proc As New Process()
        With proc
            .StartInfo.FileName = "cscript.exe"
            .StartInfo.Arguments = "/nologo script.vbs"
            .StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            .StartInfo.RedirectStandardOutput = True
            .StartInfo.UseShellExecute = False
            .StartInfo.CreateNoWindow = True
            .Start()
        End With
        btn.Text = proc.StandardOutput.ReadToEnd()
    End Sub
    Public Shared Sub Main()
        System.Windows.Forms.Application.Run(New WinForm())
    End Sub
End Class

WScript.Echo "Output to " & WScript.ScriptFullName