喜びの列挙型宣言

Public Enum JOY as long
　　Bonus = 270000
　　Souziki = -3500
　　Nekutai = -3000
　　Ysyatu = -2000
　　Kutusita = -200
End Enum

Public Sub 20060401()

　　dim SakataSaifu as long

　　SakataSaifu = 12000
　　SakataSaifu = CDec(SakataSaifu) + CDec(JOY.Bonus)

　　SakataSaifu = CDec(SakataSaifu) + CDec(JOY.Souziki) + CDec(JOY.Nekutai)
　　SakataSaifu = CDec(SakataSaifu) SakataSaifu = CDec(SakataSaifu) + CDec _
　　 + CDec(JOY.Ysyatu) + (CDec(JOY.Kutusita) * 5)

　　Debug.print = SakataSaifu

End Sub

はっはっは、ボーナス入った。３０万予測だったが、１割減った。
が、２回目のボーナスでこれならまだ悪くない。さらに１５日には給料さえ入ってくる。何をしてやろうかと、ドンキでグッチのネクタイを物色して、ブルガリの財布を見て、カルバンクラインの時計を見て、ジグソーパズルを見て、掃除機とノーブランドネクタイとYシャツと靴下を買った。
仕事は変わらず忙しいし、新人に話しかけたら無視されたり、席替えで横に１セル動いただけだったとかあんまりいい流れではない。が、掃除機が意外と吸引力強くて、ネクタイが中々渋くて、靴下の通気性がよくて、すべてオールオッケー。ドンキで満たされる男、それが俺だ！