[طارق العطو]

السلام عليكم اخواني 
اريد كود  قراءة  جزاء من ارقام الموجودة في TEXTBOX مثلا ادخلت ارقام عن طريق البار كود ريدار واريد ان اختار الخمس الارقام الاولى وثلاثة الارقم الاخيرة

[mustaf]

(18-10-20, 03:50 AM)طارق العطو كتب : السلام عليكم اخواني 
اريد كود  قراءة  جزاء من ارقام الموجودة في TEXTBOX مثلا ادخلت ارقام عن طريق البار كود ريدار واريد ان اختار الخمس الارقام الاولى وثلاثة الارقم الاخيرة

هل تقصد هذا

كود :

Dim n As String
n = Left$(Text1, 5) & "-" & Right$(Text1, 3)
MsgBox n

[طارق العطو]

بارك الله فيك يا باش مهندس هو ده الي ادور عليه مشكور جدا