risolto.
Ho messo un bottone e al click del bottone ho scritto questo codice
codice:
Dim myStream As Stream
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "xls files (*.xls)|*.xls"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = openFileDialog1.OpenFile()
' assegno il percoso intero del file scelto alla textbox1
TextBox1.Text = openFileDialog1.FileName
End If