Public Class form1
    Private Sub btnTotal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTotal.Click
        Dim dec1 As Decimal = 4.5 * Val(Me.txtMeal1.Text)
        Dim dec2 As Decimal = 5.75 * Val(Me.txtMeal2.Text)
        Dim dec3 As Decimal = 6.25 * Val(Me.txtMeal3.Text)
        Dim decTotal As Decimal = Answer(dec1, dec2, dec3, decTotal)

        Me.lblCalculate.Text = "Total Is: $ " & decTotal




    End Sub

    Function Answer(ByVal dec1 As Decimal, ByVal dec2 As Decimal, ByVal dec3 As Decimal, ByVal decTotal As Decimal)
        Return dec1 + dec2 + dec3
    End Function


End Class