Test the length

If Len(Textbox1.Text) 0 Then
Worksheets(1).Range("A1").Value = Textbox1.Text
End If

--

HTH

RP

"TC" wrote in message
...
I have a userform with 30 textboxes to allow the user to enter data.
This data is then copied to a worksheet. During usage they may need
to leave some or all textboxes blank. This has the result of empty
text strings "" being copied to my worksheet. This screws up some
isblank and countif functions.

Is there a way to set the empty textbox to "blank" ? Failing that
what is the easiest way to find and delete empty text strings in a
row? Find doesn't find them.

Thanks for your help.