add +1 value to textbox

[vbnoob00]

i wana add +1 value to textbox in vb6 every time i hit button
format = 0000
i wana when i click it show 0001
then again i click it show 0002
and so on
i tried
text1.text = text1.text +1
but it give me 1, 2 , 3
thats not format i need
so plz help me guyz

[masoudk1990]

Text1.Text = Format(Val(Text1.Text + 1), "0000")

[vbnoob00]

Text1.Text = Format(Val(Text1.Text + 1), "0000")

thanx work like charm

[vbnoob00]

how i set textbox limit to 9999

[masoudk1990]

how i set textbox limit to 9999

Private Sub Form_Load()
    Text1.MaxLength = 4
End Sub

Private Sub Command1_Click()
    If (Val(Text1.Text) < 1000) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    End If
End Sub

If you wish user only be able to write numbers in textbox write this code in keypress event of textbox

    If (KeyAscii < 48 And KeyAscii <> 8) Or (KeyAscii > 57) Then 'numbers and backspace only :)
        KeyAscii = 0
    End If

[vbnoob00]

Private Sub Form_Load()
Text1.MaxLength = 4
End Sub

if it go over i wana display msg box error

[masoudk1990]

if it go over i wana display msg box error

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

[vbnoob00]

genius thanxxxx

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

[SamOscarBrown]

if it go over i wana display msg box error

If you set the maxlength to 4, one CANNOT type in anything larger than 4 characters...so no msgbox would be needed anyway.....

[vbnoob00]

genius thanxxxx

i keep getting that msgbox even on 0001

[masoudk1990]

i keep getting that msgbox even on 0001

Sorry

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