What is easier? writing many sub routines or just one long one.

Pass values from one procedure or function via its argument list.

Sub firstone()
    x = InputBox("give me a number")
    newnumber = myadder(x)
    MsgBox newnumber
End Sub
Function myadder(ByVal numbertoprocess As Double) As Double
    myadder = numbertoprocess + 1
End Function