Makro med svarboks ?

På mit arbejde arbejder vi i Citrix. Der er brug for at indstille søgestier for filplaceringer i Word og Excel.
Til det formål har jeg lavet makroer. Men da vi arbejder i afdelinger har det til Word været nødvendigt at lave 3 forskellige filer med makroer der starter ved åbning af filen. (Dette gælder også til Excel)
Er det ikke muligt at lave en fil hvor man får mulighed for at vælge afdeling inden resten af makroen køres?

Her er makroen jeg bruger:
Private Sub Document_Open()
    Options.DefaultFilePath(Path:=wdDocumentsPath) = _
        "Drev:\MAPPE\H_AFD\Institution\Afdelings-hus\"
    Options.DefaultFilePath(Path:=wdUserTemplatesPath) = _
        "Drev:\MAPPE\H_AFD\Institution\Lokale Skabeloner\"
    Options.DefaultFilePath(Path:=wdWorkgroupTemplatesPath) = _
        "Drev:\Mappe\H_AF\"
    Options.DefaultFilePath(Path:=wdAutoRecoverPath) = "Drev:\"
    Options.DefaultFilePath(Path:=wdStartupPath) = _
        "Drev:\Application Data\Microsoft\Word\STARTUP\"
End Sub

Jeg forestiller mig at der skal åbne en dialogboks der spørger hvilken afdeling brugeren skal indstilles til. Efter svar skal makroen indstille en variabel til denne afdelings bogstavbetegnelse (A, B eller C).
Makroen skal så i den første [Options.DefaultFilePath] indstilles til [Options.DefaultFilePath(Path:=wdDocumentsPath) = _
        "Drev:\MAPPE\H_AFD\Institution\=(Variablens værdi)-huset\"]