Office: belegte Variablen nach Schließen leer...

Hallo liebe Helfer,

Auszug aus dem alten Code:

Public Pfad As String

Sub CommandButton1_Click()
Unload Me
Pfad = InputBox("Bitte geben Sie den neuen Dateipfad ein.")
...
.Range("A2").FormulaLocal = "=WENN('" & Pfad & "[SAP_Bau150.xls]Tabelle1'!A2="""";"""";'" & Pfad & "[SAP_Bau150.xls]Tabelle1'!A2)"
...
End Sub

Sub CommandButton2_Click()
...
.Range("A2").FormulaLocal = "=WENN('" & Pfad & "[SAP_Bau150.xls]Tabelle1'!A2="""";"""";'" & Pfad & "[SAP_Bau150.xls]Tabelle1'!A2)"
...
End Sub

Hier hat der Benutzer die Option, den Dateipfad in eine Inputbox einzugeben. Der Dateiname bleibt jedoch gleich. Es funktioniert. Wenn er den CommandButton2_Click() anklickt geht es trotzdem, obwohl die Variable Pfad scheinbar leer ist...?

Auszug aus dem neuen Code:

Public Pfad As String
Public dn As String

Sub CommandButton1_Click()
Unload Me
Pfad = InputBox("Bitte geben Sie den neuen Dateipfad ein.")
dn = InputBox("Bitte geben Sie den Dateinamen der Datenbasis ein.")
...
.Range("A2").FormulaLocal = "=WENN('" & Pfad & "\[" & dn & "]Tabelle1'!A2="""";"""";'" & Pfad & "\[" & dn & "]Tabelle1'!A2)"
...
End Sub

Sub CommandButton2_Click()
...
.Range("A2").FormulaLocal = "=WENN('" & Pfad & "\[" & dn & "]Tabelle1'!A2="""";"""";'" & Pfad & "\[" & dn & "]Tabelle1'!A2)"
...
End Sub

Hier soll der Benutzer den Dateipfad (Variable Pfad) und Dateinamen (Variable dn) eingeben können. Die erste Sub funktioniert auch, aber die 2. Sub nicht. Wenn er keinen Pfad und Dateinamen eingegeben hat, dann kommt ein Fehler.
Irgend wann am Anfang muss der Benutzer ja den CommandButton1_Click() anklicken, um den Pfad und den Dateinamen zu hinterlegen. Dieser müsste dann immer verfügbar sein, d.h. wenn der Benutzer den CommandButton2_Click() macht, dann müssen diese ehemals eingegebenen Variablen zur Verfügung stehen.
Wie kann ich das machen? Das Ziel ist ja, dass ich sowohl Pfad als auch Dateiname ändern kann. Also der neue Code ist interessant und muss funktionieren.

LG und Danke im Voraus.