Запуск процесса с помощью WScript.Shell - VB

Формулировка задачи:

здравствуйте если в бат файл записать:

                    Листинг программы
                
Print #1, ".\smartid_sample.exe " & Chr$(34) & sFP & Chr$(34) & " ..\data-zip\bundle_passport_drvlicrus.zip > output.txt"

и выполнить его то нужное мне действие происходит если пробую:

                    Листинг программы
                
ChDrive "C"
ChDir "C:\SmartIDReader\bin"
CreateObject("WScript.Shell").Run "" & "C:\SmartIDReader\bin\smartid_sample.exe " & Chr$(34) & sFP & Chr$(34) & " ..\data-zip\bundle_passport_drvlicrus.zip > output.txt" & ""

то процесс в консоли запускается, а нужного результата нет, почему? где то ошибся? или неправильный подход? спасибо

Решение задачи: «Запуск процесса с помощью WScript.Shell»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Form_Load()
    Dim CMDLine         As String
    Dim Program         As String
    Dim Arg             As String
    Dim ResultFile      As String
    Dim sFP             As String
    Dim sResult         As String
    Dim ff              As Long
    
    sFP = "??????????" '// TODO
    
    ResultFile = "output.txt"
    Program = "C:\SmartIDReader\bin\smartid_sample.exe"
    Arg = """" & sFP & """" & " " & "..\data-zip\bundle_passport_drvlicrus.zip"
    
    CMDLine = Program & " " & Arg
    
    ChDrive "C"
    ChDir "C:\SmartIDReader\bin"
    
    sResult = CreateObject("WScript.Shell").Exec(CMDLine).StdOut.ReadAll()
    
    ff = FreeFile()
    
    Open ResultFile For Output As #ff
        Print #ff, sResult
    Close #ff
    
    CreateObject("Shell.Application").ShellExecute ResultFile, "", "", "", 1
End Sub