Cpr check i Access

Hej Jeg har denne funktion som jeg gerne vil have til at virke når jeg forlader cprnr. feltet:

Public Function cpr(PersonNr)
Dim Xvar As Long,  SlutCiffer As Long, Resultat As Long
If Not IsNull(PersonNr) Then
  Xvar = Val(Mid(PersonNr, 1, 1)) * 4
  Xvar = Xvar + Val(Mid(PersonNr, 2, 1)) * 3
  Xvar = Xvar + Val(Mid(PersonNr, 3, 1)) * 2
  Xvar = Xvar + Val(Mid(PersonNr, 4, 1)) * 7
  Xvar = Xvar + Val(Mid(PersonNr, 5, 1)) * 6
  Xvar = Xvar + Val(Mid(PersonNr, 6, 1)) * 5
  Xvar = Xvar + Val(Mid(PersonNr, 7, 1)) * 4
  Xvar = Xvar + Val(Mid(PersonNr, 8, 1)) * 3
  Xvar = Xvar + Val(Mid(PersonNr, 9, 1)) * 2
  SlutCiffer = Val(Mid(PersonNr, 10, 1))
  Resultat = 11 - (Xvar Mod 11)
If Resultat = 11 Then
    esultat = 0
End If

If Resultat = SlutCiffer Then
  cprtest = True
Else
 cprtest = False
MsgBox "Forkert CPR"
End If
Else
cprtest = Null
End If
End Function


Jeg får hele tiden fejl når jeg prøver med en hændelse, hvad gør jeg forkert