MAPI Objects Error

I am getting an error:

CDO MAPI_E_INVALID_OBJECT in my code...Here is a sample of the code - if you think you can help contact me and I can give you more:

where msgcount = # of msgs in the Inbox

If msgcount <> 0 And mobjfolder.Name = "Registration_for_Archived_Webinar"
Then
For x = 1 To msgcount
If x = 1 Then
Set mobjmessage = mobjmsgcoll.GetFirst
Else
Set mobjmessage = mobjmsgcoll.GetNext
End If
Call parse_csv(mobjmessage.Text, itemlist())
Call import_Registration_for_Archived_Webinar(db, itemlist(),
mobjmessage, StError)
'move to archive
y = mobjmessage.MoveTo(stArchiveId)

The line that the code breaks at is:

y = mobjmessage.moveto(stArchiveId)

Again -- if you need more info -- let me know!

Thanks!

JHart