Your function is not returning a value.
Your code is confusing so I'm not sure what it should return.

Public Function add_Name(name) As String
Set emp = New CEmployee
    emp.name = name

   add_Name = name ' or whatever you want returned
End Function