Public Function HTMLFont(lngColor As Long, strLine As String)
Dim strColorCode As String
strColorCode = Hex(lngColor)
strColorCode = IIf(strColorCode <> "C0C0C0", _
StrReverse(strColorCode), _
strColorCode)
strColorCode = Left(strColorCode & "00000", 6)
strLine = Replace(strLine, "&", "&")
strLine = Replace(strLine, "<", "<")
strLine = Replace(strLine, ">", ">")
HTMLFont = "<font face=arial color=#" & strColorCode & _
" size=2>" & strLine & "</font>"
End Function
Add into the AddChat routine (or whatever you call it):
var = HTMLFont(CLng(vData(i)), CStr(vData(i + 1)))
That's how I did it for MeBot, anyways.