there's is a simpler way. Remember that the "where" condition is a string, Any function returning a string will do here very well.
instead of
=FieldAsSeparatedString("EmployeeName","tblEmployees","[ComplaintNumber] =" & [Me].[ComplaintNumber] & "")
try this
Public Function...