VBA - hjælp AKUT

Hej, er igang med at teste modulus 11.
Har set andre kommentar og har prøvet at lave same same, men det lykkes ikke ved mig.

Jeg skal teste CPR nr fra celle "A6" og svaret skal indsættes i celle F5.(Forkert eller gyldig CPR nr) 

Når jeg trykker på RUN, så kommer ikke noget frem, hvad har jeg lavet forkert?

Sub ny()


    Dim CPRtest
    Dim Resultat
    Dim SlutCiffer
    Dim Xvar
   
   
    Testtest = Worksheets("Hjem").Range("F5").Value
   
    If (Worksheets("Hjem").Range("A6").Value <> "") Then
   
        Xvar = Val(Mid(Testtest, 1, 1)) * 4
        Xvar = Xvar + Val(Mid(Testtest, 2, 1)) * 3
        Xvar = Xvar + Val(Mid(Testtest, 3, 1)) * 2
        Xvar = Xvar + Val(Mid(Testtest, 4, 1)) * 7
        Xvar = Xvar + Val(Mid(Testtest, 5, 1)) * 6
        Xvar = Xvar + Val(Mid(Testtest, 6, 1)) * 5
        Xvar = Xvar + Val(Mid(Testtest, 7, 1)) * 4
        Xvar = Xvar + Val(Mid(Testtest, 8, 1)) * 3
        Xvar = Xvar + Val(Mid(Testtest, 9, 1)) * 2
        SlutCiffer = Val(Mid(Testtest, 10, 1))
        Resultat = 11 - (Xvar Mod 11)
    End If
       
    If Resultat = 11 Then
        Resultat = 0
    End If
   
    If Resultat <> SlutCiffer Then
        MsgBox "Forkert CPR-nummer"
    End If

End Sub