Hello everybody, I am using this function to convert the standard numbers

0123456789 to arabic numbers ٠١٢٣٤٥٦٧٨٩

It is working on one machine it does the conversion but not on another where it returns the standard 0123456789 digits. Both machines are displaying the arabic text correctly in the application, the only difference is with the numbers. Anybody have any ideas?

Code:
Public Function ConArNum(ByVal strStringToConvert As String) As String

On Error GoTo ErrorHandler

strStringToConvert = Replace$(strStringToConvert, "0", ChrW$(1632))
strStringToConvert = Replace$(strStringToConvert, "1", ChrW$(1633))
strStringToConvert = Replace$(strStringToConvert, "2", ChrW$(1634))
strStringToConvert = Replace$(strStringToConvert, "3", ChrW$(1635))
strStringToConvert = Replace$(strStringToConvert, "4", ChrW$(1636))
strStringToConvert = Replace$(strStringToConvert, "5", ChrW$(1637))
strStringToConvert = Replace$(strStringToConvert, "6", ChrW$(1638))
strStringToConvert = Replace$(strStringToConvert, "7", ChrW$(1639))
strStringToConvert = Replace$(strStringToConvert, "8", ChrW$(1640))
strStringToConvert = Replace$(strStringToConvert, "9", ChrW$(1641))

ConArNum = strStringToConvert

Exit Function
ErrorHandler:
ConArNum = vbNullString

End Function