將得到的數字取到小數點以下2位四捨五入

'= 將得到的數字取到小數點以下2位四捨五入=============
Dim aa As Double
aa = TextBox1.Text
Label3.Text = FormatNumber(CInt(aa) / 3, 2)