Как убрать окно консоли - VB

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

Приветствую всех! Друзья, подскажите пожалуйста кто знает. Во время поиска файлов с использованием такой функции (нашел здесь на форуме)

Function FindFiles(ByVal fldr As String, Optional ByVal Extent As String = "*.txt") As String()
    Dim ob As Object ', ad As Object
    With CreateObject("ADODB.Stream")
      .Type = 2: .Open: .Charset = "Windows-1251"
       Set ob = CreateObject("wscript.shell")
       'ob.Visible = False
      .WriteText ob.Exec("cmd /c dir /s/b/o:d """ & fldr & Extent & "").StdOut.ReadAll
      .Position = 0: .Charset = "cp866": FindFiles = Split(.ReadText, vbCrLf)
    End With
End Function

посреди экрана висит вот такая консоль Как ее убрать или сделать невидимой?

Решение задачи: «Как убрать окно консоли»

textual
                            Листинг программы 
                        

                            Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Boolean
Private Declare Function GetConsoleWindow Lib "kernel32.dll" () As Long
Const SW_HIDE = 0
                        