Need VBA worksheetfunction.stdev based on cell value criteria

Thank you in advance for whatever help you can provide.

I am able to use the formula {=STDEV(IF(B1:B7>1,B1:B7,""))} (entered as an array by pressing control + shift+ enter) in my spreadsheet, but I would like to incorporate it in a macro as a worksheetfunction. My goal is to calculate the standard deviation of some cells based on cell value criteria. Any thoughts?

Thanks Andy! Jeff