Public Function ConvertColor(Color As Long)
    ConvertColor = (Color And &HFF&) * &H10000 + (Color And &HFF00&) + (Color _
      And &HFF0000) \ &H10000
End Function

Public Function ARGB(a As Byte, r As Byte, g As Byte, b As Byte)
    ARGB = ((IIf(a < 128, a, a - 256) * &H100& + r) * &H100& + g) * &H100& + b
End Function