CODIGO DEPHI PASSAR PARA O VB

' Coloque o código abaixo em um módulo.
Option Explicit
Public Type typRGB
   Red   As Byte
   Green As Byte
   Blue  As Byte
End Type

Public Function toRGB(sCor As String) As typRGB
   Dim iCor As Long
   
   ' Transforma "string hexa" num inteiro longo
   iCor = Val("&H" & sCor)
   
   ' Separa os três primeiros bytes de um campo longo (iCor)
   toRGB.Red = HiWord(iCor) And &HFF
   toRGB.Green = hiByte(LoWord(iCor)) And &HFF
   toRGB.Blue = loByte(LoWord(iCor)) And &HFF

End Function

Public Function toHexa(iCor As Long) As String

   Dim sTemp  As String * 2
   
   ' Red
   sTemp = Hex(HiWord(iCor) And &HFF)
   RSet sTemp = Trim$(sTemp)
   toHexa = sTemp
   
   ' Green
   sTemp = Hex(hiByte(LoWord(iCor)) And &HFF)
   RSet sTemp = Trim$(sTemp)
   toHexa = toHexa & sTemp
   
   ' Blue
   sTemp = Hex(loByte(LoWord(iCor)) And &HFF)
   RSet sTemp = Trim$(sTemp)
   toHexa = toHexa & sTemp
   
   toHexa = Replace(toHexa, " ", "0")
   
End Function


' Funções para quebra de inteiros em bytes
''                     e quebra de longos em inteiros
Public Function LoWord(ByVal dw As Long) As Integer
   
   If dw And &H8000& Then
      LoWord = &H8000 Or (dw And &H7FFF&)
   Else
      LoWord = dw And &HFFFF&
   End If

End Function

Public Function HiWord(ByVal dw As Long) As Integer
   
   If dw And &H80000000 Then
      HiWord = (dw \ 65535) - 1
   Else
      HiWord = dw \ 65535
   End If

End Function

Public Function loByte(ByVal w As Integer) As Byte
   
   loByte = w And &HFF

End Function

Public Function hiByte(ByVal w As Integer) As Byte
   
   If w And &H8000 Then
      hiByte = &H80 Or ((w And &H7FFF) \ &HFF)
   Else
      hiByte = w \ 256
   End If

End Function

Public Function toRGB(sCor As String) As typRGB

   toRGB.Red = Val("&H" & Mid$(sCor, 1, 2))
   toRGB.Green = Val("&H" & Mid$(sCor, 3, 2))
   toRGB.Blue = Val("&H" & Mid$(sCor, 5, 2))

End Function