ถามเรื่อง textbox ค่ะ มีวิธีที่ให้ป้อนข้อความเป็นแบบ ตัวเลข อย่างเดียว ได้มั้ยคะ ไม่ใช้ Mask textbox

Private Sub txt_box_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_box.KeyPress
    Select Case Asc(e.KeyChar)
        Case 48 To 57, 8 'รับค่า 0-9 และ backspace
        Case Else
            e.Handled = True      
    End Select
End Sub