Public Class FolderBrowserDialog
    Inherits Windows.Forms.Design.FolderNameEditor
    Private fb As New Windows.Forms.Design.FolderNameEditor.FolderBrowser()
    Private fbReturnPath As String
    Public Description As String
    Public ReadOnly Property ReturnPath() As String
        Get
            Return fbReturnPath
        End Get
    End Property
    Public Function ShowDialog() As DialogResult
        Dim result As DialogResult
        fb.Description = Me.Description
        fb.StartLocation = FolderBrowserFolder.NetworkNeighborhood
        result = fb.ShowDialog()
        If (result = DialogResult.OK) Then
            fbReturnPath = fb.DirectoryPath
        Else
            fbReturnPath = ""
        End If
        Return result
    End Function
End Class

[...]
ChangeFolder(Me.textbox1)
 
Private Sub ChangeFolder(ByVal TextBoxToChange As TextBox)
        Dim folderBrowser As FolderBrowserDialog = New FolderBrowserDialog()
        folderBrowser.ShowDialog()
        TextBoxToChange.Text = folderBrowser.ReturnPath
End Sub
[...]