[VB] Come aggiornare prezzo dopo rimozione elemento da ListBox

[gimmi45]

salve a tutti sto facendo un esercizio in cui da una parte ci sono due listbox con dei elementi all' interno e che hanno un costo, nella prima list box gli elementi costano 1 € e nella seconda 0.80 dopo ho creato una list box in cui gli elementi selezionati nelle prime due listbox vengono trasferiti nella terza listbox grazie ad un bottone con sotto una label che indichi il prezzo totale pero se voglio eliminare qualche l'elemento dalla terza listbox tramite un bottone e con il cambiamento del prezzo totale come faccio ?
questo è il mio codice

Dim salati, dolci As Boolean
    Dim costo, totale As Double
    Private Sub btnaggiungi_Click(sender As System.Object, e As System.EventArgs) Handles btnaggiungi.Click
        If salati = True Then
            lst3d.Items.Add(lstsalati.SelectedItem)
        Else


            lst3d.Items.Add(lstdolci.SelectedItem)


        End If
        totale = totale + costo
        lblcosto.Text = CStr(totale)
    End Sub




    Private Sub btnrimuovi_Click(sender As System.Object, e As System.EventArgs) Handles btnrimuovi.Click


        If salati = True Then
            lst3d.Items.Remove(lstsalati.SelectedItem)


        Else


            lst3d.Items.Remove(lstdolci.SelectedItem)


        End If


        totale = totale - costo
        lblcosto.Text = CStr(totale)
    End Sub


    Private Sub btnesci_Click(sender As System.Object, e As System.EventArgs) Handles btnesci.Click
        End
    End Sub


    Private Sub lstsalati_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lstsalati.SelectedIndexChanged
        salati = True
        dolci = False
        costo = 1
    End Sub


    Private Sub lstdolci_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lstdolci.SelectedIndexChanged
        dolci = True
        salati = False
        costo = 0.8
    End Sub

come faccio con il bottone rimuovi