Try this
Option Explicit
Public testnum As Integer
Public Sub MakeBig(inpt As Integer)
MsgBox "Make big receives 'inpt' = " & inpt, vbOKOnly, "In MakeBig()"
inpt = inpt + 1
MsgBox "'inpt' now is = " & inpt, vbOKOnly, "In MakeBig()"
MsgBox "testnum now is = " & testnum, vbOKOnly, "In MakeBig()"
End Sub
Public Sub Test()
testnum = 1
MsgBox "The original value of testnum = " & testnum, vbOKOnly, "In Test()"
MakeBig testnum
MsgBox "After MakeBig()= " & testnum, vbOKOnly, "In Test"
End Sub
Paul Lyons Do not go where the path may lead, go instead where there is no path and leave a trail. - Ralph Waldo Emerson