'Return' statement in a Sub or a Set cannot return a value
Sub procedures and property Set procedures cannot return values.
Error ID: BC30647
To correct this error
Change the current procedure to a function, or to a Get property procedure if the current procedure is part of a property.
You can effectively return values from Sub procedures by modifying the value of parameters passed by reference using the ByRef keyword.