olease help me

if in any cell of column A i wrote text "FOC" then active cell of column B should have only numeric value and if in any cell of column A i wrote any numeric value then active cell of column B should have "FOC" .

how this can be happen by vba please help me