VBA で1を1stに変換する関数ないの?