In Exercise 15 complete the code required to make the program work. (4 points) 15. Hurricane. The table below gives the Saffir-Simpson scale for categorizing hurricanes. Complete the program that requests a wind speed in miles/hour and displays the category of the storm. Rating of hurricanes Wind Speed (in mph) 74 to 95 96 to 110 111 to 130 131 to 155 Over 155 Rating Category One Category Two Category Three Category Four Category Five Hurricane Wind speed: 98 Detemine Humicane Rating Category Two hurricane Private Sub btnDetermine_Click( . . . ) Handles btnDetermine.Click Dim speed As Double If Not IsNumeric(txtSpeed.Text) Then MessageBox. Show( "You must enter a speed.") txtSpeed.clear() txtSpeed. Focus() Exit Sub Else speed CDbl(txtSpeed. Text) End If "None" Then If Category(speed) Else End If txtOutcome.Text"Not a hurricane." txtoutcome. Text = "category " & Category(speed) & " hurricane." End Sub Function Category ( End Function