Use the textbox Validate event.

VB Code:
  1. Private Sub txtTextBox_Validate(Cancel As Boolean)

  2.     If Not IsNumeric(txtTextBox.Text) Then

  3.         Cancel = True

  4.     End If

  5. End Sub