Во как у меня

Private Sub BtEP_Click()
CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then 'Если файл не выбран,
MsgBox "Файл не задан ! ", vbOKOnly + vbCritical 'сообщение, что файл не найден,
Else
TbEP.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла
TbEP.ControlTipText = CommonDialog1.Filename
End If
End Sub

Jojo®