Public Sub SellStock()
        StkQtyDataInt(i) = StkQtyDataInt(i) - Sell.SellBox.Text
        StkQtyData = Array.ConvertAll(Of Integer, String)(StkQtyDataInt, Function(x) x.ToString())
        System.IO.File.WriteAllLines(Application.StartupPath & "\Database\StockQuantity.txt", StkQtyData)
        CompanyMoney(0) = CompanyMoney(0) + Sell.SellBox.Text * (StkBuyDataInt(i) * 1.5)
        CompanyMoney(1) = CompanyMoney(1) + Sell.SellBox.Text * (StkSllDataInt(i) - StkBuyDataInt(i))
        System.IO.File.WriteAllLines(Application.StartupPath & "\Database\Money.txt", CompanyMoney)
        Main.MoneyLabel.Text = "Money: $" & CompanyMoney(0)
        Main.ProfitLabel.Text = "Profit: $" & CompanyMoney(1)
        QtyLabel.Text = StkQtyDataInt(i)
        TotalDataInt(i) = TotalDataInt(i) + Sell.SellBox.Text
        TotalData = Array.ConvertAll(Of Integer, String)(TotalDataInt, Function(x) x.ToString())
        System.IO.File.WriteAllLines(Application.StartupPath & "\Database\Totals.txt", TotalData)
        Main.TotalStockLabel.Text = "Total Stock: " & (StkQtyDataInt(0) + StkQtyDataInt(1) + StkQtyDataInt(2) + StkQtyDataInt(3) + StkQtyDataInt(4))
        Sell.Close()
    End Sub