Using XL2000

I have a range A1:E:1 in worksheet1 containing numerical values.
I need to concatenate this range into cell F1 but exclude the cell(s) where
a zero may appear.

Solution needs to function through 50 rows.

Any programatic ideas appreciated.

Thanks, Paul