Hi

Thanks for looking - but don't waste you time it is solved.

In the Add function the line
Dim objErrCode As clsErrCode
should be
Dim objErrCode As New clsErrCode

I belive there was some other small things, but the New part is the main
part.

Cheers,
Flemming