Excel VBAならそう書きましょう。
セルの書式を標準にして現れる数字が何かを調べましょう。
そうすると、

Dim a As Integer
が原因というのが判ると思います。

ヒント：日付型

#ついでに、既定のプロパティを省略するのはお勧めできません。暗黙の何たらかんたらで、
小さな親切大きなお世話ってのもありますから、バグの元です。