FolderBrowserDialog vb.net

Private Sub btn_Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Browse.Click
        
   Try
            Dim BrowseFolder As New FolderBrowserDialog
            BrowseFolder.ShowDialog()
            txt_FolderFile.Text = BrowseFolder.SelectedPath
            If txt_FolderFile.Text = "" Then
                Exit Sub
            End If

            System.Windows.Forms.Application.DoEvents()
            Cursor = Cursors.WaitCursor
            Dim dir As New DirectoryInfo(txt_FolderFile.Text)

            Dim aryFi As FileInfo() = dir.GetFiles("*.doc")
            Dim fi As FileInfo
            Dim i As Integer = 1

            For Each fi In aryFi
                Dim gFile As String = Path.GetFileNameWithoutExtension(fi.Name)
                ' process
            Next
   Catch ex As Exception
            MsgBox(ex.Message)
   End Try

End Sub