Siri Shortcuts Windows Opener VBS

Function open(path)
    Dim objShell
    Set objShell = WScript.CreateObject("WScript.Shell")

    objShell.Run(path)
End Function

Function readln()
    Const ForReading = 1

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If Not objFSO.FileExists("param.txt") Then
        set objFile = objFSO.CreateTextFile("param.txt")
        objFile.Write " "
    End If

    set objTextFile = objFSO.OpenTextFile("param.txt", ForReading)
    readln = objTextFile.ReadLine
End Function


a=Split(readln(), " and ")
for each x in a
        Select case Trim(LCase(x))
            case "DICTATED-NAME"
                open("""PROGRAM-PATH""")
        End select
next

Set objShell = Nothing