Попытка вызвать файл java jar в макросе Excel VBA

Question

Я пытаюсь вызвать java-программу для запуска в vba excel после нажатия кнопки, но код выдает сообщение об ошибке в следующих строках:

( Private Sub RunSleep( _
    exec As WshExec, _
    Optional timeSegment As Long =  )

Ошибка:

Ошибка компиляции, пользовательский тип не определен

На самом деле я нашел этот код в Интернете и хотел попробовать его, поскольку многие добились успеха.Поэтому, пожалуйста, если кто-нибудь знает, как решить эту проблему, помогите.

Я нашел код по этой ссылке: Макрос Microsoft Excel для запуска Java-программы

         Option Explicit
        Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        Sub Button1_Click()
          Dim program As WshExec

            Set program = RunProgram("java -jar ""C:\\Users\\gfas1\\Desktop\\jlast.jar", "PROGRAM")
            Debug.Print "STDOUT: " & program.StdOut.ReadAll

        End Sub

        Private Sub RunSleep( _
            exec As WshExec, _
            Optional timeSegment As Long = 20 _
        )
            Do While exec.Status = WshRunning
                Sleep timeSegment
            Loop
        End Sub

        Private Function RunProgram( _
            program As String, _
            Optional command As String = "" _
        ) As WshExec
            Dim wsh As New WshShell
            Dim exec As WshExec

            Set exec = wsh.exec(program)
            Call exec.StdIn.WriteLine(command)
            Call RunSleep(exec)
            Set RunProgram = exec
        End Function

Ошибка вывода: