You can ask the user for a string for the path, but that would mean they'd need to type it in. Or, better, use the OpenSave Class dialog to get the fie name & path. I've attached the Class code, here's a quick display of how to use it:
Dim cOpenSave As New OpenSaveClass
cOpenSave.MultiSelect = True
cOpenSave.Filter = "Text files (*.txt)|*.txt"
cOpenSave.Title = "Select File to Open"
cOpenSave.InitialDir = survPath
strFile = cOpenSave.ShowOpen
If strFile <> "" Then