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