Microsoft Visual Basic Question .VB

Private Sub btnSoftballClick!(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles btnSoftball.Click Dim decHits As Decimal 210 Dim decTimesAtBat Dim decBattingAverage As Decimal decBattingAverage BattingAverage(decHits, decTimesAtBat blHits.Text "The batting average is & decBattingAverage ToString) As Decimal 428 End Sub Private Function Batting Averagel(ByVal decHitsCount As Decimal, ByVal decNumberAtBat) Dim decAverageAtBat As Decimal decAverageAtBat - decHitsCount/ End Function