[محمود صالح]

طريقة الاولى
تحجيم  TEXTBOX من خلال الخاصية MAXLENGTH وجعلها 5
طريقة الثانية 
لأخد جزء من النص

Dim txt As String = "ABCDEFGHIJK"
'LSet من الجهة اليسرى
MsgBox(LSet(txt, 6)) 'ABCDEF
'RSet من الجهة اليمنى
MsgBox(RSet(txt, 6))
'Mid من البداية التى تحددها
MsgBox(Mid(txt, 3, 6)) 'CDEFGH

منقول