Public Function GetByKey( _
   ByVal lBplId As Long _
) As Boolean