Private Sub txtAltColor_Click()
    Dim CMDialog As Object
 
    On Error Resume Next
    Set CMDialog = CreateObject("MSComDlg.CommonDialog")
    Err.Clear
 
    CMDialog.Color = Me.BackColor
    CMDialog.CancelError = True
    CMDialog.flags = cdlCCRGBInit
    CMDialog.ShowColor
    If Err.Number = 0 Then
        txtColor.BackColor = CMDialog.Color
        txtColor.Text = CMDialog.Color
    Else
        'hier noch Err.Number für Abbruch abfangen
        MsgBox "Error: " & Err.Number & " : " & Err.Description
    End If
 
End Sub