[VB] Konversi warna HTML ke RGB

Function HTML2RGB(KodeHTML As String) As String
    If Left(KodeHTML, 1) = "#" Then
        KodeHTML = Right(KodeHTML, 6)
    End If
    RED = Left(KodeHTML, 2)
    GREEN = Mid(KodeHTML, 3, 2)
    BLUE = Right(KodeHTML, 2)
    RgbHex = "&H00" + BLUE + GREEN + RED
    HTML2RGB = "&" & Val(RgbHex)
End Function

Private Sub Form_Load()
    MsgBox HTML2RGB("0000FF")
End Sub

Jangan Lupa Komentar Yaa..