private sub command1_click()
on error goto 100
......妳的代碼
exit sub
100:
msgbox err.description
end sub