小编Jun*_*ior的帖子

试图了解如何将值从函数传递回子函数并在消息框中显示结果，但我无法得到它。我缺少什么学习代码如下：-

Sub mySend()

Dim myNum As Integer

myNum = InputBox("Enter number")

myReturn (myNum)

msgbox myReturn 'would like to display result in messagebox here but no joy

End Sub
'--------------------------------------
Function myReturn(ByRef myNum As Integer)

Dim myCalc As Integer

myCalc = myNum + 10

myReturn = myCalc

End Function