Vba Friend Function