Private Sub Color_Click(Index As Integer)
On Error Goto CD1_Error
 
With Text1(Index)
  CD1.CancelError = True
  CD1.Flags = &H2
  CD1.ShowColor
  Dim hexcolor
  hexcolor = RGBToHex(CD1.Color)
 .Text = hexcolor
End With
 
Exit Sub
CD1_Error:
End Sub