how do you write this in vba:

if cell value is greater than or equal to 2 change its value to 1