با استفاده از تابع زیر به راحتی میتوانید اعداد انگلیسی موجود در یک متن را به اعداد فارسی تبدیل کنید :
تابع:
Public Sub PersianNumbers(Text As String) As String
Dim s As String = Text
s = s.Replace("0","۰")
s = s.Replace("1","۱")
s = s.Replace("2","۲")
s = s.Replace("3","۳")
s =...