Textbox ทำให้รับค่าเป็นตัวเลขได้อย่างเดียวได้ไหมคะ

if isnumeric(text1.text)=false then
  messagebox.show("กรุณากรอกตัวเลข")
end if

    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
            Case Else
                e.Handled = True      
        End Select
    End Sub