The first thing that stands out is this line
If LCase(oBM.Name) = "CodiPacient" Then
The LCase function makes everything lowercase so you will never get a hit with this unless you change it to
If LCase(oBM.Name) = "codipacient" Then

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia