Public Class Form1

    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        Dim popcost As Double
        Dim buttcost As Double
        Dim bucketcost As Double
        Dim price As Double
        Dim profit As Double

        popcost = txtPop.Text
        buttcost = TxtButter.Text
        bucketcost = txtBucket.Text
        price = Txtsellingprice.Text
        profit = price - (popcost + buttcost + bucketcost)

        txtProfit.Text = "The Profit is $" & profit



    End Sub
End Class