Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        If txtNumber.Text = "" Then

            MessageBox.Show("Item Number is a Required Field")

            txtNumber.Focus()

            Return

        ElseIf txtDescription.Text = "" Then

            MessageBox.Show("Item Description is a Required Field")

            txtDescription.Focus()

            Return

        ElseIf txtPurchase.Text = "" Then

            MessageBox.Show("Item Purchase Date is a Required Field")

            txtPurchase.Focus()

            Return

        ElseIf txtPrice.Text = "" Then

            MessageBox.Show("Item Donor is a Required Field")

            txtPrice.Focus()

            Return

        ElseIf IsNumeric(txtPrice.Text) = False Then

            MessageBox.Show("Item Pirce must be a numeric value")

            txtPrice.Focus()

            Return

        ElseIf txtCurrent.Text = "" Then

            MessageBox.Show("Current Item Price is a Required Field")

            txtCurrent.Focus()

            Return

        ElseIf IsNumeric(txtCurrent.Text) = False Then

            MessageBox.Show("Current Item Price is a Required Field")

            txtCurrent.Focus()

            Return

        ElseIf txtLife.Text = "" Then

            MessageBox.Show("Item Life is a Required Field")

            txtLife.Focus()

            Return

        ElseIf IsNumeric(txtLife.Text) = False Then

            MessageBox.Show("Item Life is a Required Field")

            txtLife.Focus()

            Return

        ElseIf txtDepreciation.Text = "" Then

            MessageBox.Show("Latest Depreciation Date is a Required Field")

        End If

​

        Dim sr As IO.StreamReader = IO.File.OpenText("PersonalAssests.txt")

        Dim sw As IO.StreamWriter = IO.File.CreateText("Temp.txt")

​

        Dim line As String

        Dim data() As String

        Dim updateItem As String = txtNumber.Text

        Dim found As Boolean = False

​

        lstOutput.Items.Clear()

        lstOutput.Items.Add("Updated Record")

        lstOutput.Items.Add(" ")

​

        Do Until sr.EndOfStream

            line = sr.ReadLine

            data = line.Split(","c)

            If updateItem <> data(0) Then

                sw.WriteLine(line)

            Else

                found = True

                sw.WriteLine(txtNumber.Text & ", " & txtDescription.Text & ", " & txtProduct.Text & ", " & txtPurchase.Text & ", " & txtPrice.Text & ", " & txtCurrent.Text & ", " & txtLife.Text & ", " & txtDepreciation.Text)

                lstOutput.Items.Add(txtNumber.Text & "," & txtDescription.Text & "," & txtProduct.Text & "," & txtPurchase.Text & ", " & txtPrice.Text & ", " & txtCurrent.Text & ", " & txtLife.Text & ", " & txtDepreciation.Text)

            End If

        Loop

​

        sr.Close()

        sw.Close()

​

        IO.File.Delete("PersonalAssests.txt")

        IO.File.Move("Temp.txt", "PersonalAssests.txt")

​

        If found = False Then

            lstOutput.Items.Add("Item Number was not found in the file")

        Else

            txtNumber.Text = ""

            txtDescription.Text = ""

            txtProduct.Text = ""

            txtPurchase.Text = ""

            txtPrice.Text = ""

            txtCurrent.Text = ""

            txtLife.Text = ""

            txtDepreciation.Text = ""

        End If

    End Sub