Changing Active X control Label text from 1 to a wingding(A "1" witha circle around it)

[Richard]

This code is what I have so far. I'm using a "2" in this example. I
need the "2" to be a "1" with a circle around it. Which is a wingding2
(106). If I go into the code properties and change the font to
wingdings, it also changes the "1" to a wingding. Is there a way to
set each one. Or another way? Thanks in advance!!!

Private Sub Label1_Click()
If Label1.Caption = "2" Then
Label1.Caption = "1"
Else
If Label1.Caption = "1" Then
Label1.Caption = "2"
End If
End If
End Sub