size font on a text box

How can i change the size of font on a text box acording the number of
character (>25 characters the font size 12 )

Something like this... Use the textbox's Exit event.

Private Sub txtBox_Exit(Cancel As Integer)
If Len(Me!txtBox) > 25 Then
Me!txtBox.FontSize = 12
Else
Me!txtBox.FontSize = 10 ' your default here
End If
End Sub

"Themis Parintas ste kardias" <steka2@otenet.gr> wrote in message
news:cilpru$k2v$1@usenet.otenet.gr...[color=blue]
> How can i change the size of font on a text box acording the number of
> character (>25 characters the font size 12 )
>
>[/color]