Open PC-DMIS program dialog in VBScript

using System;
using System.IO;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Diagnostics;
using System.Drawing;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Reflection; // needed to connect

namespace SearchPCDMISprograms
{    
    public partial class Form1 : Form
    {
        string serverpath, readystr, initstr;
        bool PCDStarted = false;
        dynamic PCDApp;
        public Form1()
        {
            InitializeComponent();
            serverpath = Properties.Settings.Default.serverpath; // read the serverpath from the settings file
            readystr = Properties.Settings.Default.readystr; // read the readystr from the settings file
            initstr = Properties.Settings.Default.initstr; // read the initstr from the settings file
        }

        private void Cancelbtn_Click(object sender, EventArgs e)
        {
            System.Windows.Forms.Application.Exit(); // closes the application
        }

        private void Okbtn_Click(object sender, EventArgs e)
        {
            if (textBox1.Text.Length < 1)
            {
                MessageBox.Show("Enter a programname!");
            }
            else
            {
                string firstchar = textBox1.Text.Substring(0, 1); // get the first char in the entered string
                string folder = textBox1.Text; // set the folder to search for
                string totalpath = serverpath + "\\" + firstchar + "-\\" + folder; // complete path

                if (Directory.Exists(totalpath))
                {
                    Process.Start(@totalpath); // open the folder in Explorer

                    OpenFileDialog openfiledialog1 = new OpenFileDialog(); // create an open file dialog
                    openfiledialog1.InitialDirectory = totalpath; // show the folder in the open file dialog
                    openfiledialog1.Filter = "prg files (*.prg)|*.prg|All files (*.*)|*.*"; // filtermasks
                    openfiledialog1.FilterIndex = 1; // initial filterindex
      
                    if (openfiledialog1.ShowDialog() == DialogResult.OK)
                    {
                        try
                        {
                            Type pcdObjType = Type.GetTypeFromProgID("PCDLRN.Application");
                            PCDApp = Activator.CreateInstance(pcdObjType);
                            string status = "";
                            /*
                                this while loop starts with status = "", and will query PC-DMIS for the text in the status bar at the bottom of the screen.
                                when it finally says "READY" or it contains "DONE INIT", the loop will exit - NOTE (vpt.se) that these strings must be localized
                             */
                            while (status != readystr && !status.Contains(initstr))
                            {
                                System.Threading.Thread.Sleep(1000); // give pc-dmis a second to work
                                status = PCDApp.StatusBar();
                            }
                            PCDStarted = true; //PC-DMIS started
                            
                            // If PC-DMIS registered correctly in the Running Object Table, the code below
                            // (three lines) should work for connecting to an already running instance
                            //
                            //PCDApp = (PCDLRN.Application)Marshal.GetActiveObject("PCDLRN.Application");// as PCDLRN.Application;  
                            //PCDApp.PartPrograms.Open(openfiledialog1.FileName, "CMM1");
                            //Marshal.FinalReleaseComObject(PCDApp);
                        }
                        catch
                        //catch (System.Runtime.InteropServices.COMException f)
                        {
                            PCDStarted = false; // PC-DMIS did not start
                            //MessageBox.Show(string.Format("PC-DMIS must be started: {0}", f.Message)); // PC-DMIS needs to be started! 
                            //System.Windows.Forms.Application.Exit(); // Exit
                        }
                    
                    }
                    if (PCDStarted)
                    {
                        PCDApp.PartPrograms.Open(openfiledialog1.FileName, "CMM1"); // "CMM1" for online, "OFFLINE" for offline    
                        PCDApp = null;
                        Application.Exit();
                    }
                    else
                    {
                        MessageBox.Show("Couldn't start PC-DMIS!");
                        Application.Exit();
                    }
                }
                else
                {
                    MessageBox.Show("Folder not found!"); // couldn't find the folder
                }
            }
        }
    }
}