For Each en una clase

hola forer@s, tengo un problemilla con una clase, os cuento: Tengo una ficha
con 56 campos y he para saber si el usuario modifica alguno de ellos he
creado una clase con esos 56 campos, de la clase creo una coleccion, de
manera que cuando el usuario abre la ficha cargo los campos en la
coleccion(1), y cuando se sale los cargo en la coleccion(2) y las comparo
para ver si hizo algun cambio y avisarle antes de que cierre el formulario,
esto mismo lo hago cuando da al boton guardar, bueno el caso es que no se
muy bien como comprobar si son iguales las colecciones, por ahora lo estoy
haciendo asi:
HuboCambios = Not ( _
McolPelicula.Item(1).CalidadSonido McolPelicula.Item(2).CalidadSonido And _
McolPelicula.Item(1).CalidadVideo McolPelicula.Item(2).CalidadVideo...)
el caso es que cuando la clase es muy grande y tiene muchas propiedades pues
se tarda bastante es escribir todo el codigo, he probado a igualas las
coleccines directamente de esta forma:
McolPelicula.Item(1) = McolPelicula.Item(2)
pero no vale, asi ke me preguntaba si podrian recorrerse todos los campos de
la coleccion de alguna forma como usando For Each o algo parecido, no sep,
espero que sepais algo mejor que lo que yo estoy haciendo y sobre todo mas
rapido de picar :-) un saludo y espero no habeos aburrido con tanto rollo,
saludosssssss