Option Explicit

Public Function convColor(tBCDummy As String) As String
  Dim tBCDummy1 As String
  Dim cF As Integer

  If Len(tBCDummy) < 6 Then
    tBCDummy1 = tBCDummy
    tBCDummy = ""
    For cF = (Len(tBCDummy1) + 1) To 6
      tBCDummy = tBCDummy & "0"
    Next cF
    tBCDummy = tBCDummy & tBCDummy1
  End If

  convColor = ""
  convColor = convColor & Mid$(tBCDummy, 5, 2)
  convColor = convColor & Mid$(tBCDummy, 3, 2)
  convColor = convColor & Mid$(tBCDummy, 1, 2)
End Function

Public Function rgbColor(conColor As String) As String
  Dim r As String
  Dim g As String
  Dim b As String

  rgbColor = ""
  r = "&H" & Mid(conColor, 1, 2)
  g = "&H" & Mid(conColor, 3, 2)
  b = "&H" & Mid(conColor, 5, 2)
  rgbColor = "RGB(" & CDec(r) & ", " & CDec(g) & ", " & _
        CDec(b) & ")"
End Function

Option Explicit

Dim cColor As String

Private Sub lblChooseColor_Click()
  CD1.CancelError = False
  CD1.Flags = &H2
  CD1.ShowColor

  lblChooseColor.BackColor = CD1.Color
  txtFarbWert(0).Text = "&H" & Hex(CD1.Color)

  cColor = convColor(Hex(lblChooseColor.BackColor))
  txtFarbWert(1).Text = "#" & cColor

  txtFarbWert(2).Text = rgbColor(cColor)
End Sub