Dim filename As String
    Dim tempSave As StreamWriter

    filename = InputBox("Please enter a filename to save this data")
    Try
        tempSave = File.CreateText(filename)

        For i As Integer = 0 To priceList.Items.Count - 1
            tempSave.WriteLine(priceList)

        Next
        tempSave.Close()
    Catch ex As Exception
        MessageBox.Show("That file cannot be created.")

    End Try