VB Code:
  1. Private Sub Command1_Click()

  2. On Error Goto ErrRtn

  3. 'code to do your thing

  4. Exit Sub

  5. ErrRtn:

  6. Msgbox Err & " " & Error

  7. End Sub