Получить отчет о товарах проданных магазином

Public Class Form1
    Dim n As Integer
    Private Structure magaz
        Dim data As Date
        Dim nazvanie As String
        Dim Stoimost As Double
    End Structure
    Dim Mymagaz(100) As magaz
    Dim k As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Static k As Integer 
        Mymagaz(k).data = Date.FromOADate(Val(DateTimePicker1.Text))
        Mymagaz(k).nazvanie = Val(ComboBox1.Text)
        Mymagaz(k).Stoimost = Val(TextBox3.Text)
 
        If DateTimePicker1.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "Выберите название магазина" Then
            MessageBox.Show("Введите данные")
        Else
            TextBox4.Text = TextBox4.Text + "" + CStr(k + 1) + " дата " + CStr(Mymagaz(k).data) + "; название магазина " +
            CStr(Mymagaz(k).nazvanie) + "; стоимость: " + (Mymagaz(k).Stoimost) + "." + vbCrLf
 
            MessageBox.Show("данные о магазинах введены", "СПИСОК", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            DateTimePicker1.Text = ""
            TextBox4.Text = ""
            ComboBox1.Text = ""
 
            k = k + 1
 
            n = k
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sdata As Date
        Dim skl0, skl1, skl2, skl3, skl4, skl As Double
        If n = 0 Then
            MessageBox.Show("Данные отсутствуют", "Контроль ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Dim i As Integer
            TextBox5.Text += vbCrLf + "Список магазинов и общая стоимость проданных товаров в них: " + vbCrLf + vbCrLf
            Dim flag As Integer = 0
            For i = 0 To n - 1
                sdata = Mymagaz(i).data
                skl = (Mymagaz(i).Stoimost)
                If sdata = "Магнит" Then
                    skl0 += skl
                End If
                If sdata = "Пятерочка" Then
                    skl1 += skl
                End If
                If sdata = "Сюрприз" Then
                    skl2 += skl
                End If
                If sdata = "Окей" Then
                    skl3 += skl
                End If
                If sdata = "Лента" Then
                    skl4 += skl
                End If
            Next i
            TextBox5.Text = "В магните продано на " + CStr(skl0) + " рублей." + _
            vbCrLf + "В пятерочке продано на " + CStr(skl1) + " рублей." + vbCrLf + _
            "В сюрпризе продано на " + CStr(skl2) + " рублей." + vbCrLf + _
            "В окее продано на " + CStr(skl3) + " рублей." + vbCrLf + _
            "В ленте продано на " + CStr(skl4) + " рублей." + vbCrLf + _
            "Общая стоимость равна " 
 
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        n = 0
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        TextBox5.Clear()
        TextBox4.Clear()
        k = 0
        n = 0
    End Sub
End Class