Card suit symbol in user form label

[mikerickson]

For a card playing game, I'm trying to put a Clubs symbol in a user form Label. (A Clubs symbol looks like a 3 leaf clover).

So I filled some cells with =CHAR(ROW()), tried different fonts, and found that =CHAR(167) with the Symbol font gives me what I want.

With Range("R2")
    .Font.Name = "Symbol"
    .Value = Chr(167)
End With

But when I ran this in the user form code module

Private Sub UserForm_Click()
    With Label1
        .Font.Name = "Symbol"
        .Caption = Chr(167)
        
        MsgBox .Font.Name: Rem returned "Symbol"
    End With
End Sub

, I got a capital beta, ß.


As a check, I created a rectangle in a worksheet, ran this

With ActiveSheet.Shapes(1)
    .TextFrame.Characters.Font.Name = "Symbol"
    .TextFrame.Characters.Text = Chr(167)

    MsgBox .TextFrame.Characters.Font.Name: Rem returned Symbol
End With

And got a doubled downward arrow. (Which, when copy pasted into a cell became the desired Club symbol)

I don't understand why this his happening.
Does anybody have any thoughts?
Does anybody know some other way to put the Club symbol (and hearts, spades, diamonds) into a user form label?

 

[MickG]

This worked for me.

Private Sub UserForm_Initialize()
With Label1
    .Font.Size = 16
    .Caption = ChrW(9827) & " " & ChrW(9824) & " " & ChrW(9830) & " " & ChrW(9829)
End With
End Sub

 

[mikerickson]

Sweet!
Thanks MickG.

I'm still puzzled by the different results of font name Symbol, but ChrW should get my form going.

Thanks!

 

[MickG]

You're welcome