Hi JanAdam,
just copy and paste it and see what it will do.

' ------------------------------------------------------
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" ( _
   ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
   ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" ( _
   ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
Public Function ShellX( _
   ByVal PathName As String, _
   Optional ByVal WindowStyle As VbAppWinStyle = vbMinimizedFocus, _
   Optional ByVal Events As Boolean = True _
 ) As Long

 'Declarations:
 Const STILL_ACTIVE = &H103&
 Const PROCESS_QUERY_INFORMATION = &H400&
 Dim ProcId As Long
 Dim ProcHnd As Long

 'Get process-handle:
 ProcId = Shell(PathName, WindowStyle)
 ProcHnd = OpenProcess(PROCESS_QUERY_INFORMATION, True, ProcId)

 'wait for process end:
 Do
   If Events Then DoEvents
   GetExitCodeProcess ProcHnd, ShellX
 Loop While ShellX = STILL_ACTIVE

 'clean up:
 CloseHandle ProcHnd

End Function
Sub testdunno()
Dim x As Long
x = ShellX("cmd /c dir c:\ / s > c:\test\output.txt")
Beep ' done
End Sub

' -------------------------------------------------------

It isn't that I understand what's going on.
But got it to work.
Might need some minutes.
Live and learn.

In fact, it ran for more than 8 hours
to record all that was on a server,
with different paths, of course.

JanAdam,

See if this doesn't get you close to what you want to do, even though it
doesn't use dir.

Sub FolderBrowse()
Dim objPath As String
Dim docNew As Word.Document
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0

On Error Resume Next
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
   (WINDOW_HANDLE, "Select a folder:", NO_OPTIONS, "C:\")
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
Err.Clear

Set fso = CreateObject("Scripting.FileSystemObject")

If Len(objPath) > 0 Then
Set docNew = Documents.Add

With docNew
Set fdrFolder = fso.GetFolder(objPath)
  If fdrFolder.Files.Count > 0 Then
  Selection.TypeText "Files contained in " & objPath
  Selection.TypeParagraph
  For Each filFile In fdrFolder.Files
  Selection.TypeText fso.GetFileName(filFile)
  Selection.TypeParagraph
  Next filFile
  Else
  Selection.TypeText "No files in " & objPath
  Selection.TypeParagraph
  End If

  If fdrFolder.Subfolders.Count > 0 Then
  Selection.TypeText "Subfolders contained in " & objPath
  Selection.TypeParagraph
  For Each fdrSubFolder In fdrFolder.Subfolders
  Selection.TypeText fso.GetFileName(fdrSubFolder)
  Selection.TypeParagraph
  Next fdrSubFolder
  Else
  Selection.TypeText "No subfolders in " & objPath
  Selection.TypeParagraph
  End If

End With

Else
Exit Sub
End If

Set objShell = Nothing
Set fso = Nothing

End Sub

Steve