[LoveVb]

هل تقصد هكذا

كود :

Function g(ByVal str As String)
       Dim chr As String = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
       Dim a As String = ""
       For i = 0 To str.Length - 1
           a += chr.IndexOf(str(i)).ToString
       Next
       Return a
   End Function