VB.NET(มือใหม่) - ต้องการแปลงตัวเลขกับอักษรภาษาอังกฤษเป็นคำอ่านภาษาไทยครับ

Public Class Form1
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ArrInput As Char() = TextBox1.Text
        Dim i As Integer
        Dim ArrOutput(100)
        For i = 0 To ArrInput.Length - 1
            Select Case ArrInput(i)
                Case "0" : ArrOutput(i) = "๐"
                Case "1" : ArrOutput(i) = "๑"
                Case "2" : ArrOutput(i) = "๒"
                Case "3" : ArrOutput(i) = "๓"
                Case "4" : ArrOutput(i) = "๔"
                Case "5" : ArrOutput(i) = "๕"
                Case "6" : ArrOutput(i) = "๖"
                Case "7" : ArrOutput(i) = "๗"
                Case "8" : ArrOutput(i) = "๘"
                Case "9" : ArrOutput(i) = "๙"
                Case "A", "a" : ArrOutput(i) = "เอ"
                Case "B", "b" : ArrOutput(i) = "บี"
                Case "C", "c" : ArrOutput(i) = "ซี"
                Case "D", "d" : ArrOutput(i) = "ดี"
                Case "E", "e" : ArrOutput(i) = "อี"
                Case "F", "f" : ArrOutput(i) = "เอฟ"
                Case "G", "g" : ArrOutput(i) = "จี"
                Case Else : ArrOutput(i) = "*"
            End Select
            TextBox2.Text = ArrOutput(0) + ArrOutput(1) + ArrOutput(2) + ArrOutput(3) + ArrOutput(4) + ArrOutput(5) + ArrOutput(6) + ArrOutput(7) + ArrOutput(8) + ArrOutput(9) + ArrOutput(10)
        Next

    End Sub

End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ArrInput As Char() = TextBox1.Text
Dim i As Integer
Dim ArrOutput(100)
For i = 0 To ArrInput.Length - 1
Select Case ArrInput(i)
Case "0" : ArrOutput(i) = "๐"
Case "1" : ArrOutput(i) = "๑"
Case "2" : ArrOutput(i) = "๒"
Case "3" : ArrOutput(i) = "๓"
Case "4" : ArrOutput(i) = "๔"
Case "5" : ArrOutput(i) = "๕"
Case "6" : ArrOutput(i) = "๖"
Case "7" : ArrOutput(i) = "๗"
Case "8" : ArrOutput(i) = "๘"
Case "9" : ArrOutput(i) = "๙"
Case "A", "a" : ArrOutput(i) = "เอ"
Case "B", "b" : ArrOutput(i) = "บี"
Case "C", "c" : ArrOutput(i) = "ซี"
Case "D", "d" : ArrOutput(i) = "ดี"
Case "E", "e" : ArrOutput(i) = "อี"
Case "F", "f" : ArrOutput(i) = "เอฟ"
Case "G", "g" : ArrOutput(i) = "จี"
Case Else : ArrOutput(i) = "*"
End Select
Next
TextBox2.Text = String.Join("", ArrOutput)
End Sub

End Class

Imports System.Text.RegularExpressions
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim xxx = New RegularExpressions.Regex("[0-9a-z]").Replace("987aaa", New RegularExpressions.MatchEvaluator(AddressOf yyy))
   'ผลลัพธ์ ๙๘๗อ้าอ้าอ้า
   End Sub

   Private Function yyy(ByVal m As RegularExpressions.Match) As String
    Dim strArr() As String = {"๐", "๑", "๒", "๓", "๔", "๕", "๖", "๗", "๘", "๙", "อ้า", "ขา"}
    Dim result As string = strArr(If(m.Value = "a", 10, m.Value))
    Return result
   End Function
End Class

Imports System.Text.RegularExpressions
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim xxx = New RegularExpressions.Regex("[0-9a-z]").Replace("987aaa", New RegularExpressions.MatchEvaluator(Function(m) {"๐", "๑", "๒", "๓", "๔", "๕", "๖", "๗", "๘", "๙", "อ้า", "ขา"}(If(m.Value = "a", 10, m.Value))))
   'ผลลัพธ์ ๙๘๗อ้าอ้าอ้า
   End Sub
End Class

Regex.IsMatch("ห", "[a-z]")  เท็จ
Regex.IsMatch("อี", "[a-z]")  เท็จ
Regex.IsMatch("c", "[a-b]")  เท็จ
Regex.IsMatch("b", "[a-b]")  จริง
Regex.IsMatch("B", "[a-b]")  เท็จ
Regex.IsMatch("B", "[a-bA-B]")  จริง
Regex.IsMatch("6", "[0-9a-bA-B]")  จริง

Imports System.Text.RegularExpressions
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xxx  = New RegularExpressions.Regex("[0-9a-c]").Replace("987azbc", New RegularExpressions.MatchEvaluator(Function(m) {"๐", "๑", "๒", "๓", "๔", "๕", "๖", "๗", "๘", "๙", "อ้า", "ขา", "ให้ดูหน่อยซิ"}(If(Regex.IsMatch(m.Value, "[a-z]"), Asc(m.Value) - 87, m.Value))))

   'ผลลัพธ์ ๙๘๗อ้าzขาให้ดูหน่อยซิ
   End Sub
End Class

Imports System.Text.RegularExpressions
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xxx  = New RegularExpressions.Regex("[0-9a-c]").Replace("987azbc", New RegularExpressions.MatchEvaluator(Function(m) {"๐", "๑", "๒", "๓", "๔", "๕", "๖", "๗", "๘", "๙", "อ้า", "ขา", "ให้ดูหน่อยซิ"}(If(Regex.IsMatch(m.Value, "[a-z]"), Asc(m.Value) - 87, m.Value))))

   'ผลลัพธ์ ๙๘๗อ้าzขาให้ดูหน่อยซิ
   End Sub
End Class

    <script type="text/javascript">
        var left_sidebar_menu = [
                                 { 'page': '/DEMO/GL_MainMenu_V1001', 'id': 'ctl00_lbtnGL' },
                                 { 'page': '/DEMO/GS_MainMenu_V1001', 'id': 'ctl00_lbtnGS' },
                                 { 'page': '/DEMO/AR_MainMenu_V1001', 'id': 'ctl00_lbtnAR' },
                                 { 'page': '/DEMO/AP_MainMenu_V1001', 'id': 'ctl00_lbtnAP' }
                                ];

        //JQuery Load DOM Ready === AJAX Extenstions pageLoad()
        $(function () {
            var results = left_sidebar_menu.filter(function (หอยหอม) { return หอยหอม.page == location.pathname });
            try {
                if (results.length > 0) {
                    $('#' + results[0].id).parent().addClass('active');
                }
            } catch (e) {
                //ignore เพราะหอยหอม
            }
        });
    </script>

<ul>
  <li class=""><a href="อะไรก็ว่ากันไป">เมนูนี้ให้เอาเม้าส์มาทิ่มเบาฯ</a></li>
  <li class=""><a href="อะไรก็ว่ากันไป">เมนูนี้ให้เอาเม้าส์มาแหย่เบาฯ</a></li>
...
...
...
  <li class=""><a href="อะไรก็ว่ากันไป">เมนูนี้ให้เอาเม้าส์มาแหกเบาฯ</a></li>
</ul>