This seems to be working good enough
Code:
        'http://www.calculatorfreeonline.com/calculators/cylinder.php?action=solve&last=rh&given_data=rh&r=.04&h=.07&units_length=meters&v=0.78539816339745&a=3.1415926535898
        Dim cColumnHeightRound As Double = Double.Parse(Me.cmbColumnHeightRound.Text)
        rRadius = Double.Parse(Me.txtRadius.Text)
        Dim mM2 As Double = 2 * Math.PI * rRadius * cColumnHeightRound
        mM2 = Math.Round(mM2, 0)
        mM2 = mM2 / 1000
        mM2 = mM2 / 1000
        mM2 = Math.Round(mM2, 3)
        Me.txtTotalM2Round.Text = mM2.ToString