Dim diam As Double
        diam = Double.Parse(TextBox1.Text)
        '(diameter/2 ^2*3.14)/14.125
        Dim areaOfSlice As Double
        areaOfSlice = ((diam / 2) ^ 2 * 3.14)
        Dim derp As Double = 14.25
        areaOfSlice = areaOfSlice / derp
        TextBox2.Text = areaOfSlice.ToString()