第一种方法：
可以使用filename<>"" 来表示
但如果执行时输入了文件名又点击了“取消”filename就不是空白字符串，所以不能完全解决问题。
第二种方法。
通用对话框有一个属性CancelError，将其设置为True时，单击取消会引发一个错误，用on error 捕捉此错误可以完全解决

CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit Sub
ErrHandler：
' 用户按了“取消”按钮

谢谢1楼的兄弟！