How to insert a black squar/circle in a string ???

[ksor]

I want to give an explanation to the symbols "Black squar" and Black Circle" and therefore have to insert these symbols in a string.

I can see in WORD that the Unicodes are 25A0 for the black squar and 25CF for the black circle, but

How do I insert them into a string like this:

BS = Owner of, BC = Participant in the event !

Where "BS" is the "Black Squar" anf "BC" is the "Black Circle"

HOW ?

[SamT]

Dim BS As String: BS = ChrW(9632)
Dim BC as String: BC = ChrW(9679)

OutputString = BC & "= Owner of, " & BC & " = Participant in the event"

[ksor]

Thx - but how did you find it ?

My little sub shows different char




Public Sub findChar()
Dim i As Integer
For i = 9600 To 9700
Debug.Print i, ChrW(i)
Next i
End Sub

[SamT]

I used Calculator to convert the Hex values you gave to decimal values.

The character printed may depend on your language settings. :dunno:

[ksor]

Ok - thx for info !