[استايل]

مرحبا بك اخي الوادي نعم استخدمت الداله مع الرقم  2.345  وكانت النتيجه    هو اني قمت بتقسيم الارقام حسب موقع الفاصله فكانت النتيجه حصلت على رقم 2 وبعده حصلت على رقم 345 وهي الارقام مابعد الفاصله ولكن انا اريد ان احصل على اول رقم بعد الفاصله فقط اريد رقم 3 فقط دون الباقي واليك الكود الذي استخدمه 

Dim texst_split() As String

Dim s As String

s = Text1.Text

texst_split = Split(s, ".")

Text2.Text = texst_split(0)

Text3.Text = texst_split(1)

هذا الكود يقسمهم مضبوط ولكن لا يعطي الرقم  الاول بعد الفاصله وانا بحاجة الحصول على اول رقم بعد الفاصله واهمال البقيه

وشكرا لك وجزاك الله خير الجزاء