Trouble Displaying Wingdings...

[Code Doc]

... on Asian computers. I built a command button array of 4 buttons to show numeric characters. The caption toggles fonts between MS San Serif and Wingdings when any of them is pressed:

Private Sub Command1_Click(Index As Integer)
If Command1(Index).FontName = "Wingdings" Then
    Command1(Index).FontName = "MS Sans Serif"
    Command1(Index).FontSize = 8
    Command1(Index).FontBold = True
    Command1(Index).Caption = Format$(Index + 1, "#")
Else: Command1(Index).FontName = "Wingdings"
    Command1(Index).FontSize = 12
    Command1(Index).FontBold = False
    Command1(Index).Caption = Chr$(140 + Index)
End If
End Sub

Private Sub Form_Load()
For I = 0 To 3
    Command1(I).FontName = "MS Sans Serif"
    Command1(I).FontSize = 8
    Command1(I).FontBold = True
    Command1(I).Caption = Format$(I + 1, "#")
Next
End Sub

It works flawlessly on USA machines. Asian computers display a blank rather than a number when pressed.
(1) Is there a simple fix?
(2) Is it possible that the font is not available on the Asian machines? No error is being reported.