VBA,白猫

JAN、FEB、MAR…を1、2、3に変更したい…！！！

A列に月の英語表記の略字が入力されているのでB列にその月の数字を入力するプログラムを作ります。
今回はFunctionでJANだったら1、FEBだったら2と戻 ...