try this following code :
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If Val(TextBox3.Text) > 32 Then
TextBox3.Text = TextBox3.Text.Remove(0, Len(TextBox3.Text))
MsgBox("input under 33")
End If
End Sub
Reputation Points: 1182
Solved Threads: 392
Posting Sensei
Offline 3,135 posts
since Nov 2007