كتابة ارقام فقط فى textbox فى الفيجوال بيسك دوت نت

اضافة كود فى حدث keypress لمربع النص

If Asc(e.KeyChar) <> 13 AndAlso Asc(e.KeyChar) <>                             8 AndAlso Not IsNumeric(e.KeyChar) Then

      MessageBox.Show("Please enter numbers only")

       e.Handled = True

End If