小编Rad*_*ana的帖子

我的小样本代码

Function AddNr(ByRef x As Integer) As Integer
    x = x + 2
    AddNr = x
End Function

Sub test()
    Dim ana As Integer
    ana = 1
    AddNr (ana)
    MsgBox ana
End Sub

应输出3但输出1.更具体地说,ana在调用AddNr函数后不修改变量.

我的环境是Excel 2007中的Microsoft Visual Basic 6.5.

有没有办法在vba 6的弹出窗口中显示2或3或4或n行消息？

目前我的弹出窗口(调用MsgBox函数)显示如下消息:

       You did something wrong. Please enter valid input.

我希望它显示这样的消息

      You did something wrong. 
     Please enter valid input.

你能提供代码样本吗？

提前很多,radu