Sub-Routine aufrufen u. Variable weitergeben

Habe mir ein Modul gebastelt, in dem 2 Sub-Routinen stehen. Das soll auch aus 2 Subs bestehenbleiben. Wie schaffe ich es, das das 2. Sub (also Zusatzberechnung) mit der Variable "a" aus dem 1. Sub (also Berechung) weiterrechnet. Irgendwie wird die Variable nicht übergeben/vom 2. Sub übernommen. Muß ich da irgendwo a als "Globalvariable" definieren?

Sub Berechnung ()
a=..... 'hier wird die Variable a berechnet'
zusatzberechnung
end sub

sub zusatzberechnung ()
'hier möchte ich mit der Variable a weiterrechnen'
end sub