ขอโค้ด vb.net ที่เช็คตรวจสอบ textboxไม่ให้กรอกเป็น ภาษาไทย และเลขที่ติดลบ ขอบคุณคะ

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
    Select Case Asc(e.KeyChar)
        Case 48 To 57 ' ตรงนี้คือโค๊ดตัวเลขน่ะครับเราตัดโค๊ด58-122ออกไป
            e.Handled = False
        Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
            e.Handled = False
        Case 161 To 240 ' แล้วมาใส่ตรงนี้เป็นคีย์โค๊ดภาษาไทยรวมทั้งตัวสระ+วรรณยุกต์ด้วยน่ะครับ
        e.Handled = False
        Case Else
            e.Handled = True
            MessageBox.Show("กรุณาระบุข้อมูลเป็นภาษาไทย")
    End Select
End Sub