java - ExcelでVB SCRIPTを使用してjarファイルを呼び出して画面を保持する方法

Question

Excelでvbスクリプトを使用してJava jarファイルを呼び出したいです。私のファイル形式は「xlsm」で、vb スクリプト コードです。

コードを実行すると、コンソールが行き来します。コンソールに書かれていることはわかりません。コードを見てください

Public Function RunProgram( _
program As String, _
Optional command As String = "" _
) As WshExec
Dim wsh As New WshShell
Dim exec As WshExec
Dim oShell
Application.ScreenUpdating = False
Set exec = wsh.exec(program)
Call exec.StdIn.WriteLine(command)
 Set RunProgram = exec
'Application.ScreenUpdating = True
End Function
Public Function evenOdd1(Number As Double) As Double
Call Run
End Function

Public Sub Run()
Dim program As WshExec
Set program = RunProgram("java -jar G:\\excel\\MyTest.jar""Margus") 
'Debug.Print "STDOUT: " & program.StdOut.ReadAll
End Sub

画面を保持するために Application.ScreenUpdating、Application.visible を試しましたが、コンソールを保持できません..助けてください