add +1 value to textbox

[vbnoob00]

genius thanxxxx

    If Val(Text1.Text < 1000) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    Else
        MsgBox "Overflow!", vbCritical, "Error!"
    End If