Resume Next
   sDir = Dir(sFile)
   lErr = Err.Number
   If (lErr = 0) And Len(sDir) &gt; 0 Then
      FileExists = True
   End If
   On Error GoTo 0
End Function

Private Sub pErr(ByVal lErr As Long, ByVal bIsMacError As Boolean)
Dim errCode As Long
Dim errDesc As String
   If (bIsMacError) Then
      errCode = &amp;H1000&amp; Or lErr
      errDesc = MACErrorMessage(lErr)
   Else
      Select Case lErr
      Case 1
         errCode = 53
         errDesc = "Input file not found."
      Case 2
         errCo