Public Function GetActivitySubject( _
   ByVal pIActivitySubjectParams As ActivitySubjectParams _
) As ActivitySubject