Userform code for deleting record on sheet

I am having some problems with the following code on a userform used to delete records on the sheet:

Please Login or Register  to view this content.

The code lines with the apostrophe is giving me error 13 type mismatch. Im using it to first check that the combo box username.value exists in the range (A Column row 3 on to the last row).
The rest of the code then correctly removes the item from the username combo box list, but is removing the wrong entry on the sheet. I think its because the range starts at A3, because if I say delete the 5th item in the combo box list, which would be in A7, it removes the fifth row on the sheet instead, A5.

Worked great, thank you millz.