Enter number in Textbox till 150

[VBABEGINER]

Hi All,
Anyone knows, this..I want to enter number only in textbox till 150. After 150 it wont except.

 

[James_Latimer]

maybe something like this?

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If TextBox1.Value <> "" Then
        If TextBox1.Value > 150 Then
            MsgBox "you cant do that"
            TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
        End If
    End If
End Sub

 

[VBABEGINER]

Perfectly work dear..!!! Many Thanks...

 

[James_Latimer]

Marvellous. Always a pleasure.