Public Function SetCadEqualPart( _
   ByVal AlignID As String _
) As Long