Are you using a CommonDialog Control?

If so try this:

VB Code:
  1. Private Sub Command1_Click()

  2. CMD1.InitDir = Text1.Text

  3. CMD1.ShowOpen

  4. End Sub

I hope I have understood your question correctly.