Dim ContactID As Long
...
ContactID = Forms!frmContactEmails!ContactList.Column(0, i)
You are trying to assign ContactID, which is a Long, another variable's value. That variable is not a Long, nor one that converts to a long. You can find out what type it is by using the VarType function.