VBA Excel: Limit the textboxes to a value between 60 to 100 - excel

Question

I'm trying to validate textboxes in a UserForm. I'm using this solution on my worksheet.
How can I add validation to my textboxes to only accept numbers between 60 to 100 using the given solution? Should I add something after the If KeyAscii >= 48 And KeyAscii <= 57 Then or it should be elsewhere?
UserForm:
Class code:
Private WithEvents tb As MSForms.TextBox 'note the "WithEvents"
Sub Init(tbox As Object)
Set tb = tbox 'assigns the textbox to the "tb" global
End Sub
'Event handler works as in a form (you should get choices for "tb" in the
' drop-downs at the top of the class module)
Private Sub tb_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Debug.Print tb.Name, "number"
Else
MsgBox "The value should be in number only!", vbOKOnly + vbCritical, "Error"
Debug.Print tb.Name, "other"
KeyAscii = 0
End If
End Sub
Code on UserForm:
Private colTB As Collection 'holds your class instances
' and keeps them in scope
'This performs the setup
Private Sub UserForm_Activate()
Dim c As Object
Set colTB = New Collection
'loop all controls in the frame
For Each c In Me.Frame3.Controls
'look for text boxes
If TypeName(c) = "TextBox" Then
Debug.Print "setting up " & c.Name
colTB.Add TbHandler(c) ' create and store an instance of your class
End If
Next c
End Sub
' "factory" method
Private Function TbHandler(tb As Object) As clsTxt
Dim o As New clsTxt
o.Init tb
Set TbHandler = o
End Function

Answer 1

I don't think you can achieve that easily using a Class. The solution you are using will help you monitor each keystroke, but it looks as though you are wanting to validate input after the user has finished with the field and then you need to verify that what he has input is between 60 and 100. For that you would probably be looking at the AfterUpdate event but sadly that is not available within a class.
I think you will either need to create a stub for each textbox_AfterUpdate to do the validation.

Answer 2

Try this:
Private Sub tb_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(tb.Value) Then
'MsgBox "only numbers between 60 and 100 are allowed"
tb.Value = ""
ElseIf tb.Value >= 60 And tb.Value <= 100 Then
'MsgBox "OK!"
Else
'MsgBox "only numbers between 60 and 100 are allowed"
tb.Value = ""
End If
End Sub