VBAccelerator has a good Clipboard class.
@Bonnie West :Use ChrW$ for Unicode
Code:
TextBoxW1.SelText = (sChar & "   ") & _
                            (ChrW$(Asc(sChar)) & _
                             Right$("       " & AscW(sChar), 7&)) & _
                            (Right$("      &H" & Hex$(AscW(sChar)), 8&) & vbNewLine)