VB-problemer

Hej Eksperter

Forleden fik jeg hjælp til at strikke nedenstående kode sammen (http://www.eksperten.dk/spm/498206), og den virkede fint. Men nu er den pludseligt holdt op med at virke, dvs. man bliver sendt videre uden at skulle indtaste kodeord.

Er der nogen der har en ide om hvad der kan være gået galt?

-------------------------------
Private Sub tilHuse_Click()
On Error GoTo Err_tilHuse_Click

Dim Svar As String
Dim stDocName As String
Svar = InputBox("Angiv adgangskode", "Adgangskode?")
Select Case Svar
  Case ""
  Case "1111"
    stDocName = "gaaTilIndtastningHuseFormular"
    DoCmd.RunMacro stDocName
  Case Else
    MsgBox "Forkert adgangskode!", vbExclamation, "fejl i adgangskode!"
End Select

Exit_tilHuse_Click:
    Exit Sub

Err_tilHuse_Click:
    MsgBox Err.Description
    Resume Exit_tilHuse_Click
   
End Sub
-----------------------------------

palau