Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click totalMoney = totalMoney + 0.05 MoneyIn.text = totalMoney.ToString("C2") End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click totalMoney = totalMoney + 0.1 MoneyIn.Text = totalMoney.ToString("C2") End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click totalMoney = totalMoney + 0.25 MoneyIn.Text = totalMoney.ToString("C2") End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click totalMoney = totalMoney + 1.0 MoneyIn.Text = totalMoney.ToString("C2") End Sub