A username isn't an email address - it's the name the person uses for that account. To use the email address, you need to change:
If .Item(x).CurrentUser.Name = "
norman@worldwidemission.org" Then Exit For
to:
If .Item(x).DisplayName = "
norman@worldwidemission.org" Then Exit For