Convert Common Dialog Control Color to WEB Hex

Private Function HexRGB(lCdlColor As Long)
  Dim lCol As Long
  Dim iRed, iGreen, iBlue As Integer
  Dim vHexR, vHexG, vHexB As Variant
  
  'Break out the R, G, B values from the common dialog color
  lCol = lCdlColor
  iRed = lCol Mod &H100
    lCol = lCol \ &H100
  iGreen = lCol Mod &H100
    lCol = lCol \ &H100
  iBlue = lCol Mod &H100
   
  'Determine Red Hex
  vHexR = Hex(iRed)
      If Len(vHexR) < 2 Then
         vHexR = "0" & vHexR
      End If
      
  'Determine Green Hex
  vHexG = Hex(iGreen)
      If Len(vHexG) < 2 Then
         vHexG = "0" & iGreen
      End If
      
  'Determine Blue Hex
  vHexB = Hex(iBlue)
      If Len(vHexB) < 2 Then
         vHexB = "0" & vHexB
      End If
  'Add it up, return the function value
  HexRGB = "#" & vHexR & vHexG & vHexB
End Function