Michael, it's 0130hrs and I need to get to bed, but I wanted to get this posted befor I hit the sack. What can I say .... IT'S GREAT!! I love it! I won't pretend to understand all the code but I'm just dangerous enough to plod through others code to make it do what I want. I added this test code in the Private Sub DisplayWaveData16(DataBuff() loop.
Ultimately I will be including a timer that will be enabled by an input level that is greater than my threshold value and be disabled when a second audio value exceeds a similar value.
Label1.Caption = RY ' Display input level digitaly
If RY >= 0.8 Then Label2.Caption = "Threshold Reached" 'Display Threshold level reached
Thank you so much for your knowledge and skill.