ทำ Textbox ให้รับค่าเฉพาะภาษาอังกฤษ ไม่ได้ ใช้ Event key press เเล้วยัง Key ภาษาไทยได้อยู่เลยค่ะ รบกวนหน่อยค่ะ

  Select Case Asc(e.KeyChar)
            Case 48 To 122 ' โค๊ดภาษาอังกฤษ์ตามจริงจะอยู่ที่ 58ถึง122 แต่ที่เอา 48มาเพราะเราต้องการตัวเลข
                e.Handled = False
            Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
                e.Handled = False
            Case Else
                e.Handled = True
                MsgBox("กรุณาระบุข้อมูลเป็นภาษาอังกฤษ", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "เเจ้งเตือน")
        End Select