(Porfavor la próxima vez no hagas doble post, utiliza el botón MODIFICAR)

---

Tienes toda la razón del mundo, es un coñazo usar el FolderBrowserDialog, yo lo veo como un diálogo obsoleto y dificil de manejar, con muy poco rendimiento, ya que con el diálogo de carpetas de Windows puedes acceder a una ubicación en 5 segundos escribiendo la ubicación o usando las ubicaciones favoritas, mientras que con el FolderBrowserDialog pierdes mucho más tiempo expandiendo carpetas ...una por una.
Es una completa basura.

La solución de terceros que has mostrado ....bueno, es una solución y es customizable, pero no tiene ventajas sobre la navegación de directorios, debería customizarse en más aspectos la Class ...cosa que resultaría laboriosa. Así que sin ánimo de ofender al autor del código, me parece algo muy cutre heredar un 'CommonDialog' para hacer sólamente eso.

Te propongo algo más eficiente, usando la librería Windows API Code Pack que provee Microsoft.

Te muestro un ejemplo de uso:

    ' WindowsAPICodePack 'CommonOpenFileDialog' Example.
    ' ( By Elektro )
    '
    ' Instructions:
    ' 1. Reference "Microsoft.WindowsAPICodePack.dll" and "Microsoft.WindowsAPICodePack.Shell.dll".
 
    Imports Microsoft.WindowsAPICodePack.Dialogs
    Imports Microsoft.WindowsAPICodePack.Shell
 
    ''' <summary>
    ''' The WindowsAPICodePack 'CommonOpenFileDialog' instance.
    ''' </summary>
    Private WithEvents FolderPicker As New CommonOpenFileDialog With
        {
            .Title = "Folder Picker Test",
            .DefaultDirectory = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",
            .InitialDirectory = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",
            .DefaultFileName = "C:\",
            .IsFolderPicker = True,
            .Multiselect = False,
            .ShowPlacesList = True,
            .ShowHiddenItems = True,
            .EnsurePathExists = True,
            .RestoreDirectory = False,
            .NavigateToShortcut = True,
            .AllowNonFileSystemItems = True,
            .AddToMostRecentlyUsedList = True
        }
 
    ''' <summary>
    ''' Handles the Click event of the Button1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        ' If folder is picked then...
        If FolderPicker.ShowDialog() = CommonFileDialogResult.Ok Then
 
            Dim SelectedFolder As ShellObject = FolderPicker.FileAsShellObject
            MsgBox(SelectedFolder.GetDisplayName(DisplayNameType.FileSystemPath))
 
        End If
 
        ' FolderPicker.Dispose()
 
    End Sub
 
    ''' <summary>
    ''' Handles the FolderChanging event of the FolderPicker control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="Microsoft.WindowsAPICodePack.Dialogs.CommonFileDialogFolderChangeEventArgs"/> instance containing the event data.</param>
    Private Sub FolderPicker_FolderChanging(sender As Object, e As CommonFileDialogFolderChangeEventArgs) _
    Handles FolderPicker.FolderChanging
 
        ' Restrict the navigation on specific folders.
        Select Case True
 
            Case e.Folder = Environment.GetFolderPath(Environment.SpecialFolder.Windows)
                '  Restricts the navigation to 'Windows' directory.
                e.Cancel = True
 
            Case e.Folder.Equals("C:\Juegos", StringComparison.CurrentCultureIgnoreCase)
                ' Restricts the navigation to 'C:\Juegos' directory.
                e.Cancel = True
 
            Case e.Folder.Split("\").Last.Equals("Administrador", StringComparison.CurrentCultureIgnoreCase)
                ' Restricts the navigation to any directory name ending in "Administrador" keyword.
                e.Cancel = True
 
            Case Else
                ' Allow navigation on that directory.
                e.Cancel = False
 
        End Select
 
    End Sub

PD: Y si no quieres depender de librerías siempre puedes sacar la parte importante del código fuente que va incluido.
PD: Además, ese kit de librerías en el futuro te proporcionarían ventajas y comodidades para usar otros tipos de controles y classes muy interesantes.

O también puedes usar la librería Ooki Dialogs, que son diálogos basados en Windows VISTA y es la librería que yo usaba como reemplazamiento del 'FolderBrowserDialog', antes de conocer la existencia de 'WindowsAPICodePack'.

Un mini ejemplo de uso:

  Dim FolderPicker As New Ookii.Dialogs.VistaFolderBrowserDialog
  FolderPicker.ShowNewFolderButton = True
 
  If FolderPicker.ShowDialog.ToString() = "OK" Then
      msgbox(FolderPicker.SelectedPath)
  End If
 
  ' FolderPicker.Dispose()

Saludos.