why no write in textbox (2000 sr -1)

[sal21]

I have this code in textbox and it not work corect (naturally, :-)..
My idea:
If texbox24 or textbox25 are filled permit to write else exit sub, but not work! please corret me. Textvbox1 are filled in this case
Tks.
Private Sub TextBox28_Change()
If TextBox1.Value = "" Then
TextBox28.Text = ""
Exit Sub
Else
If TextBox24.Text = "" Or TextBox25.Text = "" Then
TextBox28.Text = ""
Exit Sub
Else
TextBox28.Text = UCase(TextBox28.Text)
Me.Label71.Caption = "CARATTERI DIPONIBILI " & Format((256 - Len(Me.TextBox28.Text)), "#000") & "/256"
End If
End If
End Sub

[HansV]

Change Or to And.

[sal21]

<img src=/S/artist.gif border=0 alt=artist width=34 height=29> perfect work fine, i am stupid!