Форма зависает

[AcTiV]

форма зависает с помощью цикла и цикл записывает текст в файл бесконечно, а он должен только один раз записать, даль textbox`сы обнуляются и программа спрашивает опять имя, цену и к-во

как еще сделать что бы в конце текстового файла выводился итог
Пример

Название         Цена           К-во           Рез
мука               4               5            20
сахар             1                2            2
                                               Итог 22

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tName As String
        Dim fw, tabul, longline
        Dim allResult, tResult, tZena, tKvo As Double
        'текстовые разметки
        tabul = Chr(9)
        longline = "------------------------------------------------"

        Try
            'Путь к файлу указан в StreamWriter конструкторе.
            'Для  параметра append установлено значение True, так что файл не будет перезаписан.
            fw = New StreamWriter("D:\Test1.txt", True)
            While True
            tName = TextBox1.Text
            tZena = Zena.Text
            tKvo = TextBox3.Text()
            tResult = tZena * tKvo

            allResult += tResult

            fw.WriteLine(tName & tabul & tZena & tabul & tKvo & tabul & tResult)
            fw.WriteLine(tabul & tabul & tabul & allResult)
            fw.WriteLine(longline)
            
        Finally
        End Try

        'Очистить поле
        TextBox1.Text = ""
        Zena.Text = ""
        TextBox3.Text = ""
       End While
        'Закрыть файл.
        fw.Close()
    End Sub

[Hollander]

Так убери бесконечный while

[drysha1494]

Добрый вечер.
У меня такая же ситуация, таг while убрал, все равно вишу.
А что еще может быть?