Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As  _
      System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) = False Then
            e.Handled = True
        End If
    End Sub

If it was hard to code, it should be hard to read too.