Editor kode skal kunne åbne flere mapper med word dokumenter

Hej alle,

Jeg har brug for at denne kode skal kunne åbne flere mapper end den der hedder 2011. Den kan ses i stien i koden herunder. Koden optræder i forbindelse med at man kan dobbelt klikke i en tekstboks, hvor man selv har udfyldt et nummer (internt rapport nummer her i huset).

Mapperne har samme format men er navngivet efter årstal. De starter med 2004 og ja, vi er nu nået til 2011 men der kommer en ny mappe for hvert år. Kan man programmere den til at forstå det at der kommer en ny der hedder 2012, 2013 osv. osv.? 

Her er koden:

Private Sub Hrnr_DblClick(Cancel As Integer)
  Dim loebeNr, fileName
  Const path = "P:\Security\Security rapporter\2011\", ext = ".doc"
 
  DoCmd.RunCommand acCmdSaveRecord
  loebeNr = Val(Left(Hrnr, 3))
 
  fileName = path & Format(loebeNr, Left("000", 3 + (loebeNr < 100))) & "-" & Right(Hrnr, 2) & ext
  If Dir(fileName) <> "" Then
    Shell "cmd /c start """" """ & fileName & """"
  Else
    fileName = fileName & "x"
    If Dir(fileName) <> "" Then
      Shell "cmd /c start """" """ & fileName & """"
    Else
      MsgBox "Dokumentet findes ikke", , "OBS"
    End If
  End If
End Sub