Здравствуйте, кто-нибудь знает, как я могу справиться с system.formatexception

---

У меня нет ошибок в моем коде, по крайней мере, из того, что я вижу в списке ошибок. но каждый раз, когда я запускаю свой код, он выдает исключение system.formatexception. я новичок в кодировании и VB.NET так что любой совет о том, что я могу сделать, чтобы решить эту проблему, поможет.

Что я уже пробовал:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Mealcost As New Cmeal
    Mealcost.Tea = Mealcost.pTea * Double.Parse(txtTea.Text)
    Mealcost.Soft_Drink = Mealcost.pSoft_Drink * Double.Parse(txtSoft_Drink.text)
    Mealcost.Coffee = Mealcost.pCoffee * Double.Parse(txtCoffee.text)
    Mealcost.Fruit_Juice = Mealcost.pFruit_Juice * Double.Parse(txtFruit_Juice.text)
    Mealcost.Water = Mealcost.pWater * Double.Parse(txtWater.text)


    Mealcost.Cake = Mealcost.pCake * Double.Parse(txtCake.text)
    Mealcost.Muffin = Mealcost.pMuffin * Double.Parse(txtMuffin.text)
    Mealcost.Waffles = Mealcost.pWaffles * Double.Parse(txtWaffles.Text)



    Mealcost.Hamburger = Mealcost.pHamburger * Double.Parse(txtHamburger.text)
    Mealcost.Fish_Chips = Mealcost.pFish_Chips * Double.Parse(txtFish_Chips.text)
    Mealcost.Meat_Pap = Mealcost.pMeat_Pap * Double.Parse(txtMeat_Pap.text)
    Mealcost.Bunny_Chow = Mealcost.pBunny_Chow * Double.Parse(txtBunny_Chow.text)
    Mealcost.Isitambu = Mealcost.pIsitambu * Double.Parse(txtIsitambu.Text)


    Mealcost.Greek_Salad = Mealcost.pGreek_Salad * Double.Parse(txtGreek_Salad.text)
    Mealcost.Potatoe_Salad = Mealcost.pPotatoe_Salad * Double.Parse(txtPotatoe_Salad.text)
    Mealcost.Fruit_Salad = Mealcost.pFruit_Salad * Double.Parse(txtFruit_Salad.Text)

    Dim iSubtotal As Double = Mealcost.GetAmount
    Dim iVat As Double = Mealcost.GetVat
    Dim iTotal As Double = iSubtotal + iVat

    vat.Text = FormatCurrency(iVat)
    sub_total.Text = FormatCurrency(iSubtotal)
    total.Text = FormatCurrency(iTotal)


End Sub

---