微软VBA的一个致命Bug

Sub Test()
    Dim p As String
    Dim r As Long
    r = Application.VBE.ActiveCodePane.CodeModule.ProcBodyLine(p, 0)
End Sub

大家好，把上述代码运行一下，你试试。有惊喜出现。

如有任何情况请回帖。