Character Length Parameter Not Working

I'm trying to set my code to force the user to enter in 8 characters for an employee ID within a text box. Currently when I attempt to enter in an employee ID, my message box alert appears after the first digit. So instead of validating the user has entered in 8 characters for the employee ID, the msgbox alert appears as soon as the user enters in the first number. I cannot figure out what I am missing within my code.

Code:
Private Sub txtPERNR_Change()
If Len(Me.txtPERNR.Text) 8 Then
Me.txtPERNR.SetFocus
MsgBox ("PERNR number must be 8 characters in length")
Cancel = True
End If
End Sub

I honestly thought this validation would be easy, but I've tried it a couple of different ways and nothing is working.