Private Sub ButtonSelectFolder_Click(sender As Object, e As EventArgs) Handles ButtonSelectFolder.Click
    Me.TextBoxFolder.Text = GetBrowseForFolder(Me, Trim(Me.TextBoxFolder.Text), _
     "Select the folder:")
  End Sub

  Public Function GetBrowseForFolder(ByVal dlgOwner As Form, ByVal InitPath As String, ByVal Prompt As String) As String
    GetBrowseForFolder = InitPath
    Dim FolderBrowser As New FolderBrowserDialog
    With FolderBrowser
      If Strings.Len(Prompt) > 0 Then
        .Description = Prompt
      End If
      .SelectedPath = InitPath
      If .ShowDialog(dlgOwner) = Windows.Forms.DialogResult.OK Then
        GetBrowseForFolder = .SelectedPath
      End If
    End With
  End Function

      FolderBrowser.RootFolder = Environment.SpecialFolder.MyComputer