关于VB简单计算问题

先上图，很简单的，一个按钮一个文本框
作如下计算
Private Sub Command1_Click()


Const M = 1089.9
      PI = 3.1415926
      u = 50
      H3 = 29.15
      L2 = 100
      SnX = 22
halfLw# = M + PI * (u + H3) / 2 + 0.5 * L2 / SnX


Text1.Text = halfLw


End Sub


计算结果显示在文本框里
我按计算器算出来的结果是1223，但是VB算出来的结果为什么会是1216？