muốn Msgbox thêm dòng diện tích hcn là: 4 chứ k cụt lủn như hình thì phải sửa code thế nào mọi người 
. code đang học là
Sub main()
Dim chieu_dai As Double
Dim chieu_rong#
chieu_rong = InputBox(prompt:="Xin nhap chieu rong")
chieu_dai = InputBox(prompt:="Xin nhap chieu dai")
MsgBox tinhdt(chieu_dai, chieu_rong)
End Sub
Function tinhdt(chieu_dai As Double, chieu_rong As Double)
tinhdt = chieu_dai * chieu_rong
End Function
