How to Browse Excel File

Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
        Try
            Dim dlg As New OpenFileDialog
            dlg.InitialDirectory = Application.StartupPath
            'dlg.InitialDirectory = "C:\Program Files\Default Company Name\ePolitices"
            dlg.Filter = " (*.xlsx)|*.xlsx" 'Microsoft Excel File "
            dlg.FilterIndex = 1

            If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
                txtname.Text = dlg.FileName

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub