decibelSound

Dim input As Double
        input = CDbl(TextBox1.Text)
        If input <= 50 Then
            TextBox2.Text = "quiet"
        End If
        If input > 50 And input <= 90 Then
            TextBox2.Text = "annoying"
        End If
        If input > 90 And input < 110 Then
            TextBox2.Text = "very annoying"
        End If
        If input < 0 Then
            TextBox2.Text = "Incorrect Input"
        End If