مطلوب دالة تقريب لخلايا داتا جريد ؟؟؟؟

السلام عليكم ورحمة الله وبركاته

حاولت تقريب الأرقام التى بالخلايا داخل الداتا جريد عن طريق هذا الكود

CurRow.Cells("e_edafy_col").Value = Math.Round(CurRow.Cells("e_edafy_col").Value, 1

ولكن المشكلة هى فى النتائج

يقرب 2.23 إلى = 2.20 ---- المفروض هنا 2.25

يقرب 2.22 الى = 2.20 ---- هذا تمام

يقرب 2.25 الى = 2.30 ---- المفروض يتركها كما هى

يقرب 2.95 الى = 3.00 ---- المفروض يتركها كما هى

لا أدرى أين المشكلة ولكنى تعبت من كثرة البحث وعدم التوصل إلى حل .....

ارجوا مساعدتى لحل المشكلة للأهمية