How do I add a Unicode character to Excel cell using VBA?

Hi.

I'm looking at the charmap and have selected a character within the following fonts: Lucida Sans Unicode

At bottom of the charmap the following is displayed:

U+2588: Full block

(it is a black square shaped character)

What kind of VBA code do I have to use to get this character in an excel cell?

This ought to do it:

VB Code:

With Range("E3")
        .Value = ChrW(9608) '2588h = 9608d
        .Font.Name = "Lucida Sans Unicode"
    End With

Thanks