Sorry Just seen what you did. Need a holiday. Thanks Again.
-----


> Here is your problem ( i think although i've not had time to test)
> > 
> > ----------------------- CVisit Class -------------------------
> > Option Explicit
> > 
> > Implements cIUtility
> > 
> > Private m_strSiteName As String
> > Private m_strMailDomain As String
> > Private m_strDbString As String
> > Private m_db As cDatabase
> > 
> > Private Property Get cIUtility() As cVisit
> >     Set cIUtility = Me
> > End Property
> > 
> 
> You are implementing the cIUtility class AND trying to create a 
cIUtility 
> property.
> I think what this should read like is:
> 
> Private Property Get cIUtility_Visit() As cVisit
>      Set cIUtility = Me
> End Property
> 
> i.e. This is defining the implementation of the visit property for the 
> cIUtility interface
> 
> Hope this helps
> Ian