Unterprogramme: Auf Werte zugreifgen

Function eine Variable oder einen Wert lesen, der im Hauptprogramm definiert worden ist, OHNE diese beim Aufrufen der 

Function übergeben zu müssen.
Hier ein Beispiel (freihändig erstellt):

Sub Hauptprogramm ()
Dim Wetter as String
Wetter = "Schön"
Vorhersage
End Sub



Function Vorhersage as String
Vorhersage = "Das Wetter ist " & Wetter
End Function


Grund meiner Frage sind die Verschachtelungen meiner Functions. Das 

Sub ruft eine 

Function auf, und die ruft eine weitere 

Function auf. Diese benötigt nun einige Werte aus der obersten Ebene. Daher muss ich nach meinem jetzigen Wissensstand diese Werte bei jedem Aufruf mit übergeben, dass sie der 

Function in der untersten Ebene zur Verfügung stehen.
Vielleicht geht das doch einfacher.
LG, Barbara.