Fix the code: Private Sub btnMileage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMileage.Click Dim decMiles As Decimal = 350D Dim decGallons As Decimal = 13.8D Dim decMilesPer As Decimal decMilesPer = Compute(decMiles, decGallons) lblDisplays.Text = "Your MPG is " & decMiles.ToString() End Sub Private Sub Compute(ByVal decM As Decimal, ByVal decG As Decimal) As Decimal Dim decMPG As Decimal decMPG = decM / decG Return MPG End Sub