Is it possible to set the format of a cell in vb?

I have a sheet with a calendar control and if the user
presses the calendar whilst on a cell with format of
number 2 decimal places the format changes to date making
any input to the cell invalid until the format is changed
back.

Thanks

Lynda