Visual Basic - Seleccion ruta en vb6

Hola estoy programando una macro para outlook en vb6 y tengo una duda q no se programar.

El programa en cuestion abre un excel y lo lee pero tengo escrita la ruta a pelo, necesitaría que el usuario pueda seleccionar la ruta donde se encontrara el fichero

sl2

Utiliza el CommonDialog

Private Sub Command1_Click()
CommonDialog1.ShowOpen
CommonDialog1.Filter = "*.Xls"
'CommonDialog1.FilterIndeX = "*.Xls"
Me.txtArchivo = CommonDialog1.Filename
End Sub

Este ejemplo muestra el cuadro de busqueda de archivos filtrando los de extencion xls.

Tienes que activar los controles de Microsoft Windows Common Controls -2.5.0 o -2.6 no me acuerdo.

Me comentas.

Saludos

Rolando