add rich text box call it rich1
and use the code
rich1.SelColor = vbRed
rich1.SelText = "red text" + vbNewLine
for red
and
rich1.SelColor = vbBlack
rich1.SelText = "blacktext" + vbNewLine

hope ive helped