Lad en sub kalde en anden sub afhængig af en variabel

Jeg har lavet en masse makroer samt nogle Userforms med tilhørende
kode i Excel VBA.

Jeg vil gerne kunne starte en makro og deri erklære en variabel (eller
lign.), som skal bruges i koden til Userform'en til at afgøre om den
videre procedure skal være den ene eller der anden makro.
... men hver gang jeg når til den "Private Sub()" som tilhører
Userform'en er min variabel "Empty" og det får jeg jo ikke meget ud
af.

Kan I hjælpe mig ?


Jeg havde tænkt mig noget i retningen af:
Sub Et()
  Var = 1
  Userform.show
End Sub

Sub To()
  Var = 2
  Userform.show
End Sub

Sub Tre()
  .. gør noget
End sub

Sub Fire()
  .. gør noget andet
End sub

..og i koden til Userform'en:
Private Sub UserForm_activate()
  If Var = 1 Then Call Tre
  Else Call Fire
End Sub

Kan man det ?