Visual Basic - ENVIO DE COLORES DE VB A HTML

HOLA AMIGOS:

TENGO UNA APLICACION EN VISUAL BASIC EN DONDE LLENO UNA GRILLA CON DATOS EXTRAIDOS DESDE UNA BD EN ACCESS.
EN LA GRILLA, LOS COLORES DE LAS CELDAS Y LOS COLORES DE LAS FUENTES, ESTAN DETERMINADOS EN RANGO, ES DECIR DE 0-100 ROJO, DE 101 - 200 AZUL, ETC...
LUEGO CREO UN TXT, Y DESDE CODIGO LLAMO AL EXPLORER Y PRESENTO UNA PAGINA CON EL CODIGO ESCRITO DESDE VB, CON UNA GRILLA SIMILAR A LA QUE TENGO EN MI PROGRAMA, PERO LO UNICO QUE NO ME FUNCIONA SON LOS COLORES, POR EJEMPLO EN VISUAL BASIC A LAS CELDAS ROJAS LE DOY EL VALOR &H000000FF&, Y CUANDO CREO LA CADENA DE HTML;
<TD bgcolor="&H000000FF&"><font face="Arial, Helvetica, sans-serif">5</font></TD>, LA CELDA NO KEDA EN ROJO.
ME IMAGINO QUE EN HTML NO SE TRATAN LOS COLORES IGUAL QUE EN VB.

DE ANTEMANO MUCHAS GRACIAS

NO escriba todo en Mayusculas eso se ve feo.

Rojo = &HFF& And text1.backcolor
Azul = (&HFF00& And text1.backcolor) \ 256
Verde = (&HFF0000 And text1.backcolor) \ 65536

El formato de color &HFF00FF&
se usa asi
las dos primeras letras son el canal rojo
las dos siguientes el Verde
y las dos ultimas el Azul

asi &HFF00FF& significa
FF = 255 cantidad de rojo
00 = 0 cantidad de verde
FF = 255 cantidad de azul.

Rodrigo Primero obtenés las componentes RGB, Luego las convertís a hexadecimal y por último las unís en una cadema. Así:

\'Conviertte un color en sus componentes RGB
Private Sub LongToRGB(ByVal RGBval As Long, Optional ByRef iRed As Integer, Optional ByVal iGreen As Integer, Optional ByVal iBlue As Integer)
iRed = RGBval And 255
iGreen = (RGBval \\ 256 ^ 1) And 255
iBlue = (RGBval \\ 256 ^ 2) And 255
End Sub

Private sub Command1_Click()
Dim r as Integer, v as Integer, b as integer
LongToRGB lblColor.BackColor, r, v, a
txtColorHtml.text = \"#\" & Format$(Hex$(r), \"00\") & Format$(Hex$(v), \"00\") & Format$(Hex(a), \"00\")
End Sub

Espero que te sirva
Saludos Ruri