In that case try this...

Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click

    Dim FolderBrowserDialog1 As New FolderBrowserDialog
    
    With FolderBrowserDialog1
        .SelectedPath = "c:\"
        .Description = "Select the source directory"
        If .ShowDialog = DialogResult.OK Then
            Textbox1.Text = (.SelectedPath)
        End If
    End With

End Sub
Sid