trying the new VB find peaks