Set wsh = VBA.CreateObject("WScript.Shell")
    ‘wsh.Run strExePath & " g", vbHide, True
    Set wshOut = wsh.exec(strExePath & " g").StdOut
    
    While Not wshOut.AtEndOfStream
        sLine = wshOut.ReadLine
        Debug.Print sLine
    Wend