四舍五入问题？

随便做一个窗体，添加命令按钮，如下：

Private Sub 命令0_Click()
    Dim A As Double
    Dim B As Double
    A = 1005.5
    B = 0.23
    MsgBox A * B                       ''' 结果=231.265
    MsgBox Round(A * B, 2)            ''' 结果=231.26 ， 为什么不等于 231.27 呢？
    MsgBox Round(A * B + 0.001, 2)   ''' 结果=231.27 ， 当然对了！
End Sub

四舍五入为什么会出问题呢？？？

怎样解决 ？？？？

谢谢！！