小吳 VBQA 程式設計討論

如果在開檔時選擇取消掣，會有Run-time error '32755'：Cancel was selected的出現。請問是什麼原因？
Private Sub mnuFileOpen_Click()
FileNum = FreeFile
'
dlgFileOpen.CancelError = True
On Error GoTo ErrHandler　 ' 如果按取消掣，往ErrHandler處理
'
Open dlgFileOpen.FileName For Binary As #FileNum
'
ErrHandler:
Close #FileNum
　　　　　 If Err.Number = cdlCancel Then　　　　　　　　
　　　　　　　　　Exit Sub
　　　　　 End If
End Sub