SubButton_Click(…)HandlesButton.ClickDimx%，y%x=y=CallF(x，y)MsgBox(x&““&y)EndSubPublicSubF(ByRefn%，ByValm%)n=nModm=mEndSub