Private Sub roCom1_Click(Cancel As Integer)
Dim nResult as String
 
On Error GoTo Err_roCom1_Click
nResult = MsgBox("Änderung übernehmen?", vbYesNoCancel)
  Select Case nResult
    Case vbYes
      Cancel = 0
    Case vbNo
      Cancel = 1
    Case Else
      Cancel = 2
  End Select
 
Exit_roCom1_Click:
    Exit Sub
 
Err_roCom1_Click:
    MsgBox Err.Description
    Resume Exit_roCom1_Click
End Sub