Private Sub clbNotiz_ButtonClick(ByVal nButton As Long, ByVal sKey As String, _
  ByVal bValue As Boolean, Button As Integer, Shift As Integer)
    Select Case sKey
        Case "cutNotiz":
            txtNotiz.Cut
        Case "copyNotiz":
            txtNotiz.Copy
        Case "pasteNotiz":
            If txtNotiz.CanPaste = True Then
                txtNotiz.Paste
            End If
        Case "undoNotiz":
            If txtNotiz.CanUndo = True Then
                txtNotiz.Undo
            End If
    End Select
End Sub