Excel VBA

次のプログラムを実行するとMsgBoxには何が表示されるでしょうか？

Sub test()
Dim x As String, y As String
x = 1
y = 2
MsgBox ((x + y) * 2 - (x * 2 + y * 2))
End Sub

2(x+y)から括弧を外した2x+2yを引くので0になるように思えますが、なりません。
今日の午後悩んだ問題のポイントだけを取り出すと上記のプログラムになります。実際にはもっともっと複雑な演算の中に紛れていたので見つけるのに半日かかりました。

google chrome安定版8.0.552.237
http://dl.google.com/chrome/install/552.237/chrome_installer.exe