WD6x: InsertFile Command Returns -1 for Both OK and Cancel

WORKAROUND

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Use the following macro to work around the problem.

   Sub MAIN
      On Error Goto Canc
      Dim dlg As InsertFile
      GetCurValues dlg
      Dialog dlg
      InsertFile dlg
      MsgBox "OK button pushed, file inserted."
      Goto done
   Canc:
      MsgBox "Cancel button pushed."
   done:
   End Sub