نمایش حروف به فارسی

[Chabok]

با سلام
من این تابع رو پارسال برای یکی از برنامه هام نوشته ام.
این تابع در String ورودی میگرده و هر چی عدد پیدا میکنه به کاراکتر فارسی معادل تبدیل میکنه و String بر میگردونه .
در ضمن فکر کنم خوب هم نوشته نشده . ولی نکته مثبت اینه که خیلی خوب جواب میده .
موفق باشید .

    Public Function FarsiInt(ByVal EnInt) As String

        Dim A As String = EnInt.ToString

        Dim A2(A.Length) As String

        Dim i As Integer

        For i = 0 To A.Length - 1

            If IsNumeric(A.Substring(i, 1)) Then

                A2(i) = ChrW(AscW(A.Substring(i, 1)) + 1728)

            Else

                A2(i) = A.Substring(i, 1)

            End If

        Next

        A = ""

        For i = 0 To A2.Length - 1

            A += A2(i)

        Next

        Return A

    End Function