This worked for me just now:
VB Code:
  1. Private Sub cmdOpen_Click()

  2.   ' CancelError is True.

  3.    On Error GoTo ErrHandler

  4.    CommonDialog1.InitDir = "\\w2k\c550" ' this is the network drive

  5.    ' Set Flags

  6.     CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNLongNames

  7.    ' Set filters.

  8.    CommonDialog1.Filter = "All Files (*.*)|*.*|Text" & _

  9.       "Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"

  10.    ' Specify default filter.

  11.    CommonDialog1.FilterIndex = 2 ' Default to TEXT

  12.    ' Display the Open dialog box.

  13.    CommonDialog1.ShowOpen

  14.    ' Call the open file procedure.

  15.  '  OpenFile (CommonDialog1.FileName)

  16.    Debug.Print CommonDialog1.FileName

  17.    Exit Sub

  18.  
  19. ErrHandler:

  20. ' User pressed Cancel button.

  21.    Exit Sub

  22.  
  23. End Sub