To pass a variable between subs you simply send it along to the procedure (passing parameters) as arguments:
Call ARoutine(MyName, MyAge)
the sub/function you are calling must have the same number of arguments as is sent or you'll get an error.
So, the receiving sub/function
Public Sub ARoutine(ByVal MyName As String, ByVal MyAge As Integer)
would look like that.
You don't need to use the ByVal statement which means you are passing the variable by its value meaning that the value will be used in the procedure but won't be affected elsewhere. You could also use the ByRef statement which will change the value of the variable within the database.
Don't have much time to go into it in detail but that should be enough to start with...