Public Shared Function Vba