VB Code error control not working!!! WHY?

[Anubis]

Private Sub Command5_Click()
On Error GoTo ehandler
MoveNext
Exit Sub
ehandler:
MsgBox
Resume Next
End Sub