VBA with Stockhistory

I have a excel formula to get the moving average of a particular stock as of a given day using stockhistory() and now I want to convert it to VBA custom function for simplicity and ease of debugging....