Try:
vb Code:
  1. CD1.Filename = "*.txt"
  2. CD1.ShowOpen