Vba fejl i Err

Jeg har indsat en err kontrol, hvor jeg har fejlet, den kører Kontrol_Err: hvergang. Kun danske svar. Min kode er:

Sub Kontrol()
    'On Error GoTo Kontrol_Err
    Dim intSvar As Integer
   



        intSvar = InputBox("Indtast et positiv tal mellem 0 og 100", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 555
       
            'MsgBox "Du har indtastet et Korrekt Password "
           
              DoCmd.Close acForm, "FrmLogInd"
              DoCmd.OpenForm "FrmJens", acNormal, "", "", acReadOnly, acNormal
      Case Is = 999
       
            MsgBox "Du har indtastet et Korrekt Password"
        Case Else
       
            MsgBox "Du har indtastet et Forkert tal"
        End Select
           
'Kontrol_Err:
'    MsgBox Error$
'    DoCmd.Beep
' 
'   
'End Sub

Håber på et svar da error handlingen ikke kan undværes.
Vh Henrik