Transfering items from a listbox to another with some conditions

Dim parts As String() = Strings.Split(Item, "€__")

<pre>
Imports System.IO
Public Class Form1
    Dim Total
    Public Sub BtnConta_Click(sender As Object, e As EventArgs) Handles BtnConta.Click
        ' Specify the file path where you want to save the ListBox items
        Dim filePath As String = "C:\Mesa1.txt"

        ' Open the file for writing
        Using writer As New System.IO.StreamWriter(filePath)
            ' Loop through each item in the ListBox
            For Each item As Object In ListBoxConsumo.Items
                ' Write the item to the file
                writer.WriteLine(item.ToString())
            Next
        End Using

        MessageBox.Show("ListBox items saved to file.")

        Dim quoteArray As String() = File.ReadAllLines("C:\Mesa1.txt")
        For Each Item As String In quoteArray

            Dim parts As String() = Strings.Split(Item, "€__")
            Dim number As Decimal
            If Decimal.TryParse(parts(0), number) Then

            End If



            Total = (Total + number)
        Next
        TxtBoxTotal.Text = Total




    End Sub

    Private Sub BtnDesconto_Click(sender As Object, e As EventArgs) Handles BtnDesconto.Click
        PanelDesconto.Show()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBoxConsumo.Items.Add("1,45€__Pão")
    End Sub



   

    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Specify the file path from where you want to load the contents
        Dim filePath As String = "C:\Mesa1.txt"

        ' Check if the file exists
        If File.Exists(filePath) Then
            ' Read all lines from the file
            Dim lines() As String = File.ReadAllLines("C:\Mesa1.txt")

            ' Clear the existing items in the ListBox
            ListBoxConsumo.Items.Clear()

            ' Add each line to the ListBox
            For Each line As String In lines
                ListBoxConsumo.Items.Add(line)
            Next
        End If
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        PanelDescontar.Hide()
    End Sub



    Private Sub BtnDescontar_Click(sender As Object, e As EventArgs) Handles BtnDescontar.Click

        ' Specify the file path from where you want to load the contents
        Dim filePath As String = "C:\Mesa1.txt"

        ' Check if the file exists
        If File.Exists(filePath) Then
            ' Read all lines from the file
            Dim lines() As String = File.ReadAllLines("C:\Mesa1.txt")

            ' Clear the existing items in the ListBox
            ListBoxFinal.Items.Clear()

            ' Add each line to the ListBox
            For Each line As String In lines
                ListBoxFinal.Items.Add(line)
            Next
        End If
        PanelDescontar.Show()
    End Sub

    Private Sub BtnApagar_Click(sender As Object, e As EventArgs) Handles BtnApagar.Click
        ' Move selected items from ListBoxFinal to ListBoxConsumo
        For Each selectedItem As Object In ListBoxFinal.SelectedItems
            ListBoxConsumo.Items.Add(selectedItem)
        Next

        '' Remove the selected items from ListBoxFinal
        'While ListBoxFinal.SelectedItems.Count > 0
        '    ListBoxFinal.Items.Remove(ListBoxFinal.SelectedItems(0))
        'End While
    End Sub
End Class