ChooseColor
Die Funktionen und Deklarationen sind wieder in einem Modul zusammengefasst. 
Eine Userform mit einem Command Button (CommandButton1) anlegen und folgenden Code hinein kopieren:
Option Explicit
Private Sub CommandButton1_Click()
Dim WasColor As Long
Dim IsColor As Long
WasColor = BackColor
If CDlgChooseColor(0&, IsColor) Then
BackColor = IsColor
MsgBox "Was color: " & WasColor & vbCrLf _
& "Is color: " & IsColor
End If
End Sub
Um ChooseColor aufzurufen ist kein Besitzer-Handle notwendig, kann aber angegeben werden.
Das Ergebnis der Routine unter CommandButton1_Click sieht dann so aus ... (je nach Betriebssystem):
