You can "transform" your code module to a class module. Create a new class, move all stuff (variables, subs) to this class.
Once you have an instance of that class (a variable), you can call its sub as wrote and get results.
Dim Result As Int = CallSub2(InstanceName, mapSubs.Get("MyRoutine"), 5)