راهنمايي درباره محاسبات تا دو رقم اعشار

[a_m_i_n_000]

سلام
چه جوري ميشه تو ويژوال بيسيك به برنامه بگيم كه محاسبات رو تا دو رقم اعشار انجام بده .
اگه ميشه يه مثال بزنيد .

[unit001]

سلام.

اینم کدش, البته با معلومات من!


Dim Adad As String, Tedad As Integer, NInt As Integer
Adad = 10.1549878 ' Adade Asli
Tedad = 2 ' Tedade raqame ashar
NInt = Int(Val(Number))
MsgBox Left(Adad, Len(NInt) + 1 + Tedad)