ขอโค้ด VB 2008 เขียน ใช้ฐานข้อมูล sql 2005 อยากให้ Textbox รับค่าเฉพาะตัวหนังสือต้องเขียน หรือ Set ค่าไงอะครับ

Private Sub txtremark_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtremark.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        Select Case KeyAscii
            Case 48 To 57
                e.Handled = True
            Case Else
                e.Handled = False
        End Select
End Sub