Hola
Utiliza el control CommonDialog (lo tienes que añadir desde Proyecto / Componentes / Microsoft Common Dialog...)
Luego pones un código parecido a este:
Código:
With CommonDialog1
.Filter = "Todos los archivos (*.*) | *.*"
.InitDir = Left(Pedido.Text, pos) & "Documentacion" 'Directorio en el que se abre por defecto
.ShowSave 'Mostrar ventana guardar
If .FileName = "" Then Exit Sub 'Si no selecciona nada
Texto97.Text = .FileName 'en filename guarda se guarda la ruta seleccionada por el usuario
End With
--Saludos--